Interpreter in haskell