Scratch Functions in Haskell.