$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task73--parse-piece-description-demo)
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+]
Candidates after color filtering are
(B-) [B-] (B+) [B+]
Candidates after style filtering are
(B+) [B+]
Candidates after shape filtering are
[B+]
The selection is
[B+]
(BIG BLUE SOLID SQUARE)->[B+]
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+]
Candidates after color filtering are
(R-) [R-] (R+) [R+]
Candidates after style filtering are
(R+) [R+]
Candidates after shape filtering are
(R+)
The selection is
(R+)
(BIG RED SOLID CIRCLE)->(R+)
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after color filtering are
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
Candidates after style filtering are
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
Candidates after shape filtering are
[B-] [B+] [b-] [b+]
The selection is
[b+]
(BLUE SQUARE)->[b+]
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+]
Candidates after color filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+]
Candidates after style filtering are
(B-) [B-] (R-) [R-]
Candidates after shape filtering are
(B-) (R-)
The selection is
(R-)
(BIG HOLLOW CIRCLE)->(R-)
NIL
[3]> (bye)
Bye.