Write yourself a scheme - haskell