[Haskell-cafe] Is unsafePerformIO safe here?