toy scheme interpreter in haskell