Changed test.tr to run a fibNat test.

2005-12-05 16:52:56 +00:00
parent 224d2451d7
commit 98b8d8d081
2 changed files with 5 additions and 5 deletions
--- a/transfer/examples/test.tr
+++ b/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))