1 files changed, 11 insertions, 0 deletions
diff --git a/transfer/examples/fib.tr b/transfer/examples/fib.tr
new file mode 100644
index 000000000..91bb69ed7
--- /dev/null
+++ b/transfer/examples/fib.tr
@@ -0,0 +1,11 @@
+import nat ;
+
+fib : Int -> Int ;
+fib 0 = 1 ;
+fib 1 = 1 ;
+fib n = fib (n-1) + fib (n-2) ;
+
+fibNat : Nat -> Nat ;
+fibNat Zero = Succ Zero ;
+fibNat (Succ Zero) = Succ Zero ;
+fibNat (Succ (Succ n)) = plus (fibNat (Succ n)) (fibNat n) ;
+\ No newline at end of file