To fib :X :Y
Pr :Y
FIB :Y :Y + :X
End

