foo :: Int -> String foo x = seq (unsafePerformIO $ println “pwned”) (show x)
[1]: https://dl.acm.org/doi/10.1145/1111320.1111056
https://downloads.haskell.org/~ghc/latest/docs/html/users_gu...
[1]: https://dl.acm.org/doi/10.1145/1111320.1111056