RosettaCodeData/Task/Factorial/Bracmat/factorial-3.bracmat

(factorial=
  r
.   !arg:?r
  &   whl
    ' (!arg:>1&(!arg+-1:?arg)*!r:?r)
  & !r
);