add haskell/scratch.hs