Factorial in Forth

I've been enjoying playing with Forth. Here's what I came up with to implement factorial:

: fact dup 2 < if drop 1 else dup 1 - recurse * then ;

3 fact . 6  ok
6 fact . 720  ok

This looks pretty similar to the example code here: http://progopedia.com/example/factorial/253/.