From 853db480a40eabf195fc836faae99617c09fd045 Mon Sep 17 00:00:00 2001
From: Maxim Likhachev <envrm@yandex.ru>
Date: Sat, 20 Jun 2020 16:41:44 +0300
Subject: [PATCH] 010/104: yes

---
 src/yes.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 src/yes.hs

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
+