scheme@(guile-user)> (define true #t) scheme@(guile-user)> (define false #f) scheme@(guile-user)> (define q (queue)) scheme@(guile-user)> (print-queue q) #q() scheme@(guile-user)> (print-queue (enqueue 'a q)) #q(a) scheme@(guile-user)> (print-queue q) #q() scheme@(guile-user)> (set! q (enqueue 'a q)) scheme@(guile-user)> (print-queue q) #q(a) scheme@(guile-user)> (set! q (enqueue 'e (enqueue 'd (enqueue 'c (enqueue 'b q))))) scheme@(guile-user)> (print-queue q) #q(e d c b a) scheme@(guile-user)> (peek q) $28 = a scheme@(guile-user)> (define ret (dequeue q)) scheme@(guile-user)> (define value (car ret)) scheme@(guile-user)> (set! q (cdr ret)) scheme@(guile-user)> value $29 = a scheme@(guile-user)> (print-queue q) #q(b c d e) scheme@(guile-user)> (print-queue (cdr (dequeue (cdr (dequeue (enqueue 'g (enqueue 'f q))))))) #q(d e f g)