: factorial ( n -- n! )
  dup 2 < if
    drop 1
  else
    dup 1 - factorial *
  then ;

5 factorial .