RosettaCodeData/Task/Queue-Usage/Oforth/queue-usage.fth

: testQueue
| q i |
   Queue new ->q
   20 loop: i [ i q push ]
   while ( q empty not ) [ q pop . ] ;