chore: update examples to use the new syntax elements

Author: SuperFola

webapp/public/contents/ide/ark/examples/100_bottles_of_beer.template

@@ -1,5 +1,5 @@
 (mut n 5)
 (while (> n 1) {
-    (print (string:format "{} Bottles of beer on the wall\n{} bottles of beer\nTake one down, pass it around" n n))
+    (print (format "{} Bottles of beer on the wall\n{} bottles of beer\nTake one down, pass it around" n n))
     (set n (- n 1))
-    (print (string:format "{} Bottles of beer on the wall." n)) })
+    (print (format "{} Bottles of beer on the wall." n)) })

webapp/public/contents/ide/ark/examples/macros.template

@@ -1,9 +1,9 @@
-($ suffix-dup (sym x) {
+(macro suffix-dup (sym x) {
   ($if (> x 1) (suffix-dup sym (- x 1)))
   ($symcat sym x) })
 
-($ partial (func ...defargs) {
-  ($ bloc (suffix-dup a (- ($argcount func) (len defargs))))
+(macro partial (func ...defargs) {
+  (macro bloc (suffix-dup a (- ($argcount func) (len defargs))))
   (fun (bloc) (func ...defargs bloc))
   ($undef bloc) })
 
@@ -15,10 +15,10 @@
 (print "Expected arguments for test_func1: " ($argcount test_func1) ", expected " 2)
 (print "Calling them: " (test_func 1 2 3) " " (test_func1 2 3))
 
-($ foo (a b) (+ a b))
+(macro foo (a b) (+ a b))
 (print "Using macro foo (a b) => (+ a b): " (foo 1 2))
 
-($ var 12)
+(macro var 12)
 (print "Using macro constant var=12: " var)
 
 ($if (= var 12)
@@ -29,42 +29,42 @@
   (print "This was executed in a if macro, testing (and true true)")
   (print "You shouldn't see this (bis)"))
 
-($ defun (name args body) (let name (fun args body)))
+(macro defun (name args body) (let name (fun args body)))
 (defun a_func (a b) (+ a b))
 (print "Generated a function with a macro, a_func (a b) => (+ a b)")
 (print "Calling (a_func 1 2): " (a_func 1 2))
 
-($ one (...args) (print "Macro 'one', returns the 2nd argument given in " args " => " (@ args 1)))
+(macro one (...args) (print "Macro 'one', returns the 2nd argument given in " args " => " (@ args 1)))
 (one 1 2)
 (one 1 3 4)
 (one 1 5 6 7 8)
 
-($ last (...args) (print "Macro 'last', returns the last argument given in " args " => " (@ args -1)))
+(macro last (...args) (print "Macro 'last', returns the last argument given in " args " => " (@ args -1)))
 (last 1 2)
 (last 1 3 4)
 (last 1 5 6 7 8)
 
 {
   (print "Testing macros in scopes and macro shadowing")
 
-  ($ test (+ 1 2 3))
+  (macro test (+ 1 2 3))
   (print "(global) Reading macro 'test', expected 6, " test)
 
   ((fun () {
-    ($ test (- 1 2 3))
+    (macro test (- 1 2 3))
     (print "(sub scope) Reading macro 'test', expected -4, " test) }))
 
   (print "(global) Reading macro 'test', expected 6, " test)
 
   {
-    ($ test 555)
+    (macro test 555)
     (print "(subscope) Reading macro 'test', expected 555, " test)
-    ($ undef test)
+    ($undef test)
     (print "(subscope, undef test) Reading macro 'test', expected 6, " test)
-    ($ undef a) } }
+    ($undef a) } }
 (print "Demonstrating a threading macro")
 
-($ -> (arg fn1 ...fn) {
+(macro -> (arg fn1 ...fn) {
   ($if (> (len fn) 0)
     (-> (fn1 arg) ...fn)
     (fn1 arg)) })

webapp/public/contents/ide/ark/learning/02-function_with_return_val.template

@@ -7,4 +7,4 @@
 (let num2 5)
 
 # and use them with our adder function to get the sum
-(print (string:format "{} + {} = {}" num1 num2 (adder num1 num2)))
+(print (format "{} + {} = {}" num1 num2 (adder num1 num2)))