How to turn a function into a parser in haskell (Megaparsec) This is my current code for multiplying the first and last numbers in a string