: fac ( n -- n! ) 1 swap 1+ 1 ?do i * loop ;