Tinkering with lovely Haskell