--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/fib.ur Thu Nov 19 16:02:04 2015 -0500 @@ -0,0 +1,10 @@ +fun fib n = + if n = 0 then + 0 + else if n = 1 then + 1 + else + fib (n - 1) + fib (n - 2) + +fun main n : transaction page = + return <xml>{[fib n]}</xml>