make "fifo []
print empty? :fifo ; true
queue "fifo 1
queue "fifo 2
queue "fifo 3
show :fifo ; [1 2 3]
print dequeue "fifo ; 1
show :fifo ; [2 3]
print empty? :fifo ; false