1 2 3 4 5 6 7 8 9
"Factorial for num:" OUT INP FLT #loop DUP 1 DIF DUP 1 GRT @loop IFJ SWP PI_ STR OUT