{-# LANGUAGE BangPatterns #-}
module F (f) where

import qualified Data.Attoparsec.ByteString as A
import qualified Data.ByteString as B

f = d >>= \x -> return $! B.reverse x

d = A.takeWhile isDigit
    where isDigit w = w >= 48 && w <= 57