1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
/* Prints the first 25 numbers of the fibonacci sequence to standard output */ 0 1 1 while rot rot 1 + dup 26 != do rot dup rot rot dup rot print drop " " print swap dup rot + end