USING: kernel prettyprint math ;

IN: fac

: fac ( x -- y )
    dup 1 =
    [ drop 1 ]
    [ dup 1 - fac * ]
    if ;

10 fac