1 files changed, 8 insertions, 0 deletions
diff --git a/monad/wri.hs b/monad/wri.hs
new file mode 100644
index 0000000..93a0527
--- /dev/null
+++ b/monad/wri.hs
@@ -0,0 +1,8 @@
+import Control.Monad.Writer
+
+example :: Writer [Int] String
+example = do
+    tell [1..5]
+    tell [6..10]
+    return "foo"
+