Data update

Task/Queue-Usage/Rebol/queue-usage-1.rebol

@@ -0,0 +1,8 @@
+queue: [a]         ;== [a]
+append queue [b c] ;== [a b c]
+take queue         ;== a
+take/last queue    ;== c
+queue              ;== [b]
+length? queue      ;== 1
+insert queue 'A    ;== [b] because insert returns position after insertion
+append queue 'C    ;== [A b C] because append returns position at head

Task/Queue-Usage/Rebol/queue-usage-2.rebol

@@ -0,0 +1,15 @@
+; Create and populate a FIFO:
+
+q: make fifo []
+q/push 'a
+q/push 2
+q/push $12.34                 ; Did I mention that REBOL has 'money!' datatype?
+q/push [Athos Porthos Aramis] ; List elements pushed on one by one.
+q/push [[Huey Dewey Lewey]]   ; This list is preserved as a list.
+
+; Dump it out, with narrative:
+
+print rejoin ["Queue is "  either q/empty [""]["not "]  "empty."]
+while [not q/empty][print ["  " q/pop]]
+print rejoin ["Queue is "  either q/empty [""]["not "]  "empty."]
+print ["Trying to pop an empty queue yields:" q/pop]