Initial data commit

Task/Loops-While/ATS/loops-while-1.ats

@@ -0,0 +1,20 @@
+#include "share/atspre_staload.hats"
+
+fn
+loop_while () : void =
+  let
+    fun
+    loop {n : int | 0 <= n} .<n>.
+         (n : uint n) : void =
+      if n <> 0U then
+        begin
+          println! (n);
+          loop (n / 2U)
+        end
+  in
+    loop 1024U
+  end
+
+implement
+main0 () =
+  loop_while ()