feat(examples): adding fizz buzz and show ascii table examples

Author: SuperFola

examples/fizz_buzz.ark

@@ -0,0 +1,13 @@
+(import std.Range)
+
+(let r (range:range 0 100))
+(range:forEach
+  r
+  (fun (e)
+    (if (= 0 (mod e 15))
+      (print "FizzBuzz")
+      (if (= 0 (mod e 3))
+        (print "Fizz")
+        (if (= 0 (mod e 5))
+          (print "Buzz")
+          (print e))))))

examples/show_ascii_table.ark

@@ -0,0 +1,15 @@
+(mut i 0)
+(while (< i 16) {
+  (mut j (+ 32 i))
+  (while (< j 128) {
+    (let k
+      (if (= 32 j)
+        "Spc"
+        (if (= 127 j)
+          "Del"
+          (string:chr j))))
+    (puts (string:format "{:3} : {:<3}" j k))
+    (set j (+ 16 j)) })
+  (print "")
+
+  (set i (+ 1 i)) })