! Copyright (C) 2006 Daniel Ehrenberg
! See http://f...content-available-to-author-only...e.org/license.txt for BSD license.
USING: kernel math io prettyprint ;
IN: factorial 

: fac ( n -- n ) dup 1 <= [ drop 1 ] [ dup 1 - fac * ] if ;

5 fac .