tweak Haskell print snippet