010/104: yes

src/yes.hs

@@ -0,0 +1,11 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+
+import Prelude            (IO, (.), putStrLn, unwords)
+import Control.Monad      ((>>=), forever)
+import System.Environment (getArgs)
+
+main :: IO ()
+main = getArgs >>= forever . putStrLn . str where
+    str [] = "y"
+    str xs = unwords xs
+