Fooling around with haskell