add some more haskell scraps