While Interpreter in Haskell.