blob: 74fa1018cbcf59d6bd6eb9ed2f72a02d64f8dec7 [file] [log] [blame]
-- Compute fibonacci numbers
FUN fib(n) =
IF n == 0 THEN 0
ELSE IF n == 1 THEN 1
ELSE fib(n - 1) + fib(n - 2) FI FI
FUN main() =
LET n = READ()
IN
WRITE(fib(n))