[ dup * ] is square [ dup 2 < [ drop 1 ] [ dup 1 - fact * ] ifelse ] is fact 4 square . 5 fact .
Still, the idea of Fortik is to encourage students to learn how simple interpreters work and to extend the language.