Just fooling around with Haskell