Paste: find Fibonacci numbers <= max

:: fibs ( max -- seq )
  [
    0 , 0 1
    [ dup max > ] [
      dup ,                 ! Store last Fibonacci number.
      [ nip ] [ + ] 2bi     ! Calculate next Fibonacci number.
    ] until 2drop
  ] V{ } make ;