fix fibonacci example

examples/fibonacci.fp

@@ -10,8 +10,8 @@
   (nil eq)            $null?
   ($x x)              $force
   (10 emit)           $cr
-  (print)             $print
-  (4 +)               $cell+
+  (_print)            $print
+  (8 +)               $cell+
   ($a $d 2 alloc $p
     ^a ^p poke
     ^d ^p cell+ poke
@@ -50,7 +50,7 @@
     ) endif
   ) force) $fibonacci
 
-  30 10 range
+  16 0 range
   ^fibonacci map
   ^print each
 )