: sqr (lifo: dup *) ; : fact (lifo: 1 swap for *) ; : fibo (lifo: dup 2 <= if (drop 1) else (dup 1- fibo swap 2 - fibo +) ) ;