[Haskell-cafe] Template Haskell and unsafePerformIO