to fib "loop
make   "fib1 0
make   "fib2 1

type [You requested\ ]
type :loop
print [\ Fibonacci Numbers]
   type :fib1
   type [\  ]
   type :fib2
   type [\  ]

make "loop :loop - 2
repeat :loop [ make "fibnew :fib1 + :fib2 type :fibnew type [\  ] make "fib1 :fib2 make "fib2 :fibnew ]
   print [\  ]

end