1 2 3 4
import qualified Parser as Parser main :: IO () main = print (iterate Parser.byteParserBadOnce 5 !! 100000)