Initial data commit

Task/Loops-While/ObjectIcon/loops-while-1.oi

@@ -0,0 +1,7 @@
+import io
+
+procedure main()
+   local n
+   n := 1024
+   while n := write(0 < n) / 2
+end

Task/Loops-While/ObjectIcon/loops-while-2.oi

@@ -0,0 +1,11 @@
+import io
+
+procedure main()
+  local coexpression
+  coexpression := create generator(1024)
+  while write(@coexpression)
+end
+
+procedure generator(n)
+  while 0 < n do { suspend n; n /:= 2 }
+end

Task/Loops-While/ObjectIcon/loops-while-3.oi

@@ -0,0 +1,18 @@
+import io
+
+procedure main()
+  local coexpression
+  coexpression := create generator(1024)
+  write(@coexpression) &
+      write(@coexpression) &
+      write(@coexpression) &
+      write(@coexpression)&
+      while (write(@coexpression) &
+             write(@coexpression) &
+             write(@coexpression) &
+             write(@coexpression))
+end
+
+procedure generator(n)
+  while 0 < n do { suspend n; n /:= 2 }
+end