RosettaCodeData/Task/Loops-Infinite/Haskell/loops-infinite-2.hs

3 lines
56 B
Haskell

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