automathon


: fac
    dup
    1 > if
        dup 1 - fac *
    then
    ;
5 fac
drop
word list
stack
    call stack