Unix tools/yes

yes

A simple utility to repeatedly print y to standard out.

Here are some various ways this simple 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"