1 files changed, 35 insertions, 0 deletions
diff --git a/ipl/progs/filerepl.icn b/ipl/progs/filerepl.icn
new file mode 100644
index 0000000..46483bf
--- /dev/null
+++ b/ipl/progs/filerepl.icn
@@ -0,0 +1,35 @@
+############################################################################
+#
+#	File:     filerepl.icn
+#
+#	Subject:  Program to replicate file
+#
+#	Author:   Ralph E. Griswold
+#
+#	Date:     January 2, 1999
+#
+############################################################################
+#
+#  This file is in the public domain.
+#
+############################################################################
+#
+#  This program writes standard input to standard a specified number of
+#  times.  Number of replications is given on command line.
+#
+#  NOTE:  Since the input stream is stored internally, standard input
+#  must be of finite length.
+#
+############################################################################
+
+procedure main(args)
+   local file
+
+   file := []
+
+   while put(file, read())
+
+   every 1 to args[1] do
+      every write(!file)
+
+end