{{ Fibonacci Number Program (Beeps after each calculation) {{ Juliet 2004.0 $lib rout fib:int (n:int) cond n <= 0 return 0 cond n = 1 return 1 return (fib (n - 1) + fib (n - 2)) rout main loop 1=1 print "Enter a number to calculate the fibonacci number of (-1 to stop): " def x:int <- readi cond x = -1 return printn "fib (" & str x & ") = " & str fib(x) beep