Adding support for a genesis DB.

assets/examples/agents/fib.tcl

@@ -0,0 +1,13 @@
+##########################################
+### Perform Fibanaci sequence up to 10 ###
+##########################################
+set GHINT [split "math, fib" ,]
+proc fib {x} {
+	if {<= $x 1} {
+		return 1
+	} else {
+		+ [fib [- $x 1]] [fib [- $x 2]]
+	}
+}
+
+puts [fib 20]

assets/examples/agents/t2.tcl

@@ -0,0 +1,18 @@
+###########################################
+### Square numbers in sequence up to 10 ###
+###########################################
+set GHINT [split "math, square" ,]
+proc square {x} {
+	* $x $x
+}
+
+set a 1
+while {<= $a 10} {
+	if {== $a 5} {
+		puts {Missing five!}
+		set a [+ $a 1]
+		continue
+	}
+	puts "I can compute that $a*$a = [square $a]"
+	set a [+ $a 1]
+}