Haskell stash, unfinalized version...