4chan memes the /prog/ way

First: No, I don't give a shit what you think.

if(!TITS){
GTFO();
}

main=return()>>= \ _ ->mapM_ putStr(repeat "DESU ")

>>21
That's a bit unnecessary.
main = (sequence_ (repeat (putStr "DESU ")))

>>22
I happen to like function composition :x
main = (sequence_ . repeat . putStr) "DESU "

Those programs are good if you want infinitely many desus out on the terminal. However, if you're doing anything more complicated, chances are that you're going to just want a list of desus, out of which you can pick as many as you want.

desus = repeat "DESU"
delimit = (concat .) . intersperse

putStr $ delimit " " desus

Or, if you're into halting computations...

putStrLn $ delimit " " $ take 1000 desus