diff --git a/src/yes.hs b/src/yes.hs
new file mode 100644
index 0000000..bee7d1e
--- /dev/null
+++ b/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
+