:fac
    dup 1 great [dup 1 sub fac mult] if
;


:fib
    dup 1 great [dup 1 sub fib swap 2 sub fib add] if
;


:test
    print ": " print
    10 [over exec print " " print] for
    nl
;


@fib "fib" test
@fac "fac" test

"End " input