A toy, mostly broken implementation of Scheme in Haskell