1 2 3 4 5 6 7 8
module Main (main) where import Parse main :: IO () main = do s <- getContents print $ parse s