$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;; Loaded file quarto.l
T
[2]> (task13--to-string-demo)
COFFEE TEA
[B+] (b-) (R+)
NIL
[3]> (bye)
Bye.