Unix tools/yes
From HaskellWiki
yes
A simple utility to repeatedly print "y" to standard output.
Here are some various ways this small program can be written:
main = let y = putStrLn "y" >> y in y
|
main = putStrLn $ concat $ repeat "y\n"
|
main = let y = 'y' : '\n' : y in putStrLn y
|
main = putStrLn "y" >> main
|
main = putStrLn $ cycle "y\n"
|