import Control.Monad.Fix (fix)
fix (putStrLn "SPAM" >>)