1 -> B
INPUT "LOOPS:",A
IF A<1:RETURN
WHILE A>=0
A-1 -> A
1/(B+1) -> B
END
B+1 -> B