Finished scheme in haskell