Write Us a Scheme in Haskell