My first haskell parser