Fac_Sec.tcl

store y 1
store x 5
mul y x
dec x
cmp x 0
jp nz 3
ret