$ clisp <...snip...> [1]> (load "quarto.l") ;; Loading file quarto.l ... ;; Loaded file quarto.l T [2]> (task10--to-string-demo) ("(B-)" "[B-]" "(B+)" "[B+]" "(R-)" "[R-]" "(R+)" "[R+]" "(b-)" "[b-]" "(b+)" "[b+]" "(r-)" "[r-]" "(r+)" "[r+]") *BBHS* [B-] *SRSC* (r+) NIL [3]> (bye) Bye.