automathon


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