Fac_Rec.tcl

store y 5
jsbr 4
halt
cmp y 0
jp nz 8
store y 1
rsbr
push y
dec y
jsbr 4
pop x
mul y x
rsbr