Adding support for a genesis DB.

assets/examples/agents/add-two.tcl

@@ -0,0 +1,12 @@
+#####################
+### Add 2 numbers ###
+#####################
+# HINT START
+#  - math
+#  - addition
+# HINT END
+set val1 1
+set val2 2
+
+set result [expr {val1 + val2}]
+puts result

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/hello-earth.tcl

@@ -0,0 +1,8 @@
+###################
+### Hello Earth ###
+###################
+set GHINT [split "thermal measurements, gravity measurements, gravity fluctuations" ,]
+proc hello_earth {} {
+  puts "Hello Earth, does localized tempurature variations alter specific gravity?"
+}
+hello_earth

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]
+}