A toy Scheme implementation in Haskell