Data update

Task/Fibonacci-sequence/Logo/fibonacci-sequence.logo

@@ -1,4 +1,17 @@
-to fib :n [:a 0] [:b 1]
-  if :n < 1 [output :a]
-  output (fib :n-1 :b :a+:b)
+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