( iterative fibonacci sequence )

: fib
  0 1
  begin
    rot
    dup 0> 
  while
    1-
    rot rot
    dup
    dup .
    rot 
    +
  repeat
; 

15 fib