--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/fib.tp	Wed Mar 21 21:25:10 2012 -0700
@@ -0,0 +1,31 @@
+#{
+
+console <- foreign: #{
+	log <- foreign: :val {}
+}
+
+true <- #{
+  if:else <- :self trueblock :elseblock {
+    trueblock:
+  }
+}
+
+false <- #{
+  if:else <- :self trueblock :elseblock {
+    elseblock:
+  }
+}
+
+fib <- :n {
+  if: n < 2 {
+    1
+  } else: {
+    (fib: n-1) + (fib: n-2)
+  }
+}
+
+main <- {
+  console log: (fib: 30)
+}
+
+}