Implement Scheme in Haskell, do something "cool" in that Scheme language implementation