1 files changed, 10 insertions, 0 deletions
diff --git a/games/squ.awk b/games/squ.awk
new file mode 100644
index 00000000..0d8f9210
--- /dev/null
+++ b/games/squ.awk
@@ -0,0 +1,10 @@
+# Make a square out of each line of input
+{
+    str = toupper($0)
+    len = length(str)
+    for (i = 1; i <= len; i++)
+        let[i - 1] = substr(str, i, 1)
+    for (j in let)
+        for (k in let)
+            printf (k < len - 1) ? "%s " : "%s\n", let[(k + j) % len]
+}