$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task75--select-piece-demo)
Which piece, X? (big blue)
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-] (B+) [B+]
Candidates after shape filtering are
(B-) [B-] (B+) [B+]
The selection is
[B+]
Piece selected is [B+]
Which piece, X? (small)
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-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after shape filtering are
(b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
The selection is
[r+]
Piece selected is [r+]
Which piece, X? (big red hollow square)
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-]
Piece selected is [R-]
Which piece, X? ()
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+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after style filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
Candidates after shape filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] (r-) [r-] (r+) [r+]
The selection is
[B+]
Piece selected is [B+]
Which piece, X? (small blue circle)
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-] (b+) [b+]
Candidates after shape filtering are
(b-) (b+)
The selection is
(b-)
Piece selected is (b-)
NIL
[3]> (bye)
Bye.