sample/haskell/Parser.hs