Haskell

I have no IO monad and I must scream

import System.IO.Unsafe

scream :: a -> a
scream = seq $ unsafePerformIO $ putStrLn "Aargh!"