RosettaCodeData/Task/Queue-Usage/PostScript/queue-usage.ps

 [1 2 3 4 5] 6 exch tadd
 = [1 2 3 4 5 6]
 uncons
 = 1 [2 3 4 5 6]
 [] empty?
 =true