'
' Recursive factorial function test
'

pr.dec fact(5); pr.nl
end

sub fact(word val)
  pr.msg "fact("; pr.dec val; pr.msg ")"; pr.nl
  if val == 0
    return 1
  else
    return val * fact(val-1)   ; ' THIS DOES NOT WORK
'    return fact(val-1) * val    ; ' BUT THIS DOES!!!
  endif
endsub