Initial data commit

Task/Loops-Do-while/Common-Lisp/loops-do-while-1.lisp

@@ -0,0 +1,5 @@
+(let ((val 0))
+  (loop do
+        (incf val)
+        (print val)
+        while (/= 0 (mod val 6))))

Task/Loops-Do-while/Common-Lisp/loops-do-while-2.lisp

@@ -0,0 +1,3 @@
+(loop with val = 0
+      do (print (incf val))
+      until (= 0 (mod val 6)))

Task/Loops-Do-while/Common-Lisp/loops-do-while-3.lisp

@@ -0,0 +1,4 @@
+(do* ((a 0)		     ; Initialize to 0
+      (b (incf a) (incf b))) ; Set first increment and increment on every loop
+     ((zerop (mod b 6)) (print b)) ; Break condition and print last value `6' (right?)
+  (print b))			   ; On every loop print value