"Factorial for num:" OUT
INP FLT
#loop
	DUP
	1 DIF
DUP 1 GRT @loop IFJ
SWP
PI_
STR OUT