Haskell, scheme code.