\ 4tH library - Multi factorials - Copyright 2015 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] n! [IF]
: n!m negate swap 1 0 rot ?do i * over +loop nip ;
: n! 1 n!m ;
[THEN]

\ 6 1 ?do 11 1 ?do i j n!m . loop cr loop
