needs math/factorial

100 n:! >s 0 swap ( nip '0 n:- n:+ ) s:each . cr



After recent changes to 's:each', you should add a 'nip':