--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/progs/sqr.fun	Wed Sep 17 16:30:09 2025 +0100
@@ -0,0 +1,15 @@
+val Max : Int = 10;
+
+def sqr(x: Int) : Int = x * x;
+
+def all(n: Int) : Void = {
+  if n <= Max
+  then { print_int(sqr(n)) ; new_line(); all(n + 1) }
+  else skip()
+};
+
+{
+  print_string("Squares");
+  new_line();
+  all(0)
+} 
\ No newline at end of file