Changed test.tr to run a fibNat test.

transfer/examples/fib.tr

@@ -9,4 +9,4 @@ 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)
+fibNat (Succ (Succ n)) = plus Nat add_Nat (fibNat (Succ n)) (fibNat n)

transfer/examples/test.tr

@@ -1,4 +1,4 @@
-main = let x : Type = case n of
-		n2 -> 2
-		n3 -> 3
-        in f Numeral
+import nat
+import fib
+
+main = natToInt (fibNat (intToNat 10))