$ clisp

<...snip...>

[1]> (load "quarto.l")
;; Loading file quarto.l ...
;;  Loading file lp.l ...
;;  Loaded file lp.l
;; Loaded file quarto.l
T
[2]> (task88--play-demo)
Name of player 1? Jake
Name of player 2? Ian
Who will move first, JAKE or IAN? Jake

D    **** **** **** ****
C    **** **** **** ****
B    **** **** **** ****
A    **** **** **** ****
     1    2    3    4

(R-) [R-] (R+) [R+] (r-) [r-] (r+) [r+]
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
Which piece, JAKE? ()
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
(r-)
JAKE: I select (r-) for you to place on the board.
On which cell will you place (r-), IAN?
(A1 A2 A3 A4 B1 B2 B3 B4 C1 C2 C3 C4 D1 D2 D3 D4)
> B2
IAN:  Placing piece (r-) on cell B2 ...

D    **** **** **** ****
C    **** **** **** ****
B    **** (r-) **** ****
A    **** **** **** ****
     1    2    3    4

(R-) [R-] (R+) [R+] [r-] (r+) [r+]
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
Which piece, IAN? (red)
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] (R+) [R+] (b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after color filtering are
(R-) [R-] (R+) [R+] [r-] (r+) [r+]
Candidates after style filtering are
(R-) [R-] (R+) [R+] [r-] (r+) [r+]
Candidates after shape filtering are
(R-) [R-] (R+) [R+] [r-] (r+) [r+]
The selection is
(R+)
IAN: I select (R+) for you to place on the board.
On which cell will you place (R+), JAKE?
(A1 A2 A3 A4 B1 B3 B4 C1 C2 C3 C4 D1 D2 D3 D4)
> A1
JAKE:  Placing piece (R+) on cell A1 ...

D    **** **** **** ****
C    **** **** **** ****
B    **** (r-) **** ****
A    (R+) **** **** ****
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
(B-) [B-] (B+) [B+] (b-) [b-] (b+) [b+]
Which piece, JAKE? (blue)
The available pieces are
(B-) [B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after size filtering are
(B-) [B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] (b+) [b+] [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+] (b-) [b-] (b+) [b+]
The selection is
(B-)
JAKE: I select (B-) for you to place on the board.
On which cell will you place (B-), IAN?
(A2 A3 A4 B1 B3 B4 C1 C2 C3 C4 D1 D2 D3 D4)
> B2
That location cannot be chosen, please try again.
On which cell will you place (B-), IAN?
(A2 A3 A4 B1 B3 B4 C1 C2 C3 C4 D1 D2 D3 D4)
> B5
That location cannot be chosen, please try again.
On which cell will you place (B-), IAN?
(A2 A3 A4 B1 B3 B4 C1 C2 C3 C4 D1 D2 D3 D4)
> B4
IAN:  Placing piece (B-) on cell B4 ...

D    **** **** **** ****
C    **** **** **** ****
B    **** (r-) **** (B-)
A    (R+) **** **** ****
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
[B-] (B+) [B+] (b-) [b-] (b+) [b+]
Which piece, IAN? (small circle
)
The available pieces are
[B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after size filtering are
(b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after color filtering are
(b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after style filtering are
(b-) [b-] (b+) [b+] [r-] (r+) [r+]
Candidates after shape filtering are
(b-) (b+) (r+)
The selection is
(b+)
IAN: I select (b+) for you to place on the board.
On which cell will you place (b+), JAKE?
(A2 A3 A4 B1 B3 C1 C2 C3 C4 D1 D2 D3 D4)
> C3
JAKE:  Placing piece (b+) on cell C3 ...

D    **** **** **** ****
C    **** **** (b+) ****
B    **** (r-) **** (B-)
A    (R+) **** **** ****
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
[B-] (B+) [B+] (b-) [b-] [b+]
Which piece, JAKE? (square)
The available pieces are
[B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after size filtering are
[B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after color filtering are
[B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after style filtering are
[B-] (B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after shape filtering are
[B-] [B+] [R-] [R+] [b-] [b+] [r-] [r+]
The selection is
[B-]
JAKE: I select [B-] for you to place on the board.
On which cell will you place [B-], IAN?
(A2 A3 A4 B1 B3 C1 C2 C4 D1 D2 D3 D4)
> A1
That location cannot be chosen, please try again.
On which cell will you place [B-], IAN?
(A2 A3 A4 B1 B3 C1 C2 C4 D1 D2 D3 D4)
> A2
IAN:  Placing piece [B-] on cell A2 ...

D    **** **** **** ****
C    **** **** (b+) ****
B    **** (r-) **** (B-)
A    (R+) [B-] **** ****
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
(B+) [B+] (b-) [b-] [b+]
Which piece, IAN? (square)
The available pieces are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after size filtering are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after color filtering are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after style filtering are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [b+] [r-] (r+) [r+]
Candidates after shape filtering are
[B+] [R-] [R+] [b-] [b+] [r-] [r+]
The selection is
[b+]
IAN: I select [b+] for you to place on the board.
On which cell will you place [b+], JAKE?
(A3 A4 B1 B3 C1 C2 C4 D1 D2 D3 D4)
> D4
JAKE:  Placing piece [b+] on cell D4 ...

D    **** **** **** [b+]
C    **** **** (b+) ****
B    **** (r-) **** (B-)
A    (R+) [B-] **** ****
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
(B+) [B+] (b-) [b-]
Which piece, JAKE? (blue)
The available pieces are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [r-] (r+) [r+]
Candidates after size filtering are
(B+) [B+] (R-) [R-] [R+] (b-) [b-] [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+]
JAKE: I select [B+] for you to place on the board.
On which cell will you place [B+], IAN?
(A3 A4 B1 B3 C1 C2 C4 D1 D2 D3)
> A4
IAN:  Placing piece [B+] on cell A4 ...

D    **** **** **** [b+]
C    **** **** (b+) ****
B    **** (r-) **** (B-)
A    (R+) [B-] **** [B+]
     1    2    3    4

(R-) [R-] [R+] [r-] (r+) [r+]
(B+) (b-) [b-]
Which piece, IAN? (small red hollow square)
The available pieces are
(B+) (R-) [R-] [R+] (b-) [b-] [r-] (r+) [r+]
Candidates after size filtering are
(b-) [b-] [r-] (r+) [r+]
Candidates after color filtering are
[r-] (r+) [r+]
Candidates after style filtering are
[r-]
Candidates after shape filtering are
[r-]
The selection is
[r-]
IAN: I select [r-] for you to place on the board.
On which cell will you place [r-], JAKE?
(A3 B1 B3 C1 C2 C4 D1 D2 D3)
> C4
JAKE:  Placing piece [r-] on cell C4 ...

D    **** **** **** [b+]
C    **** **** (b+) [r-]
B    **** (r-) **** (B-)
A    (R+) [B-] **** [B+]
     1    2    3    4

(R-) [R-] [R+] (r+) [r+]
(B+) (b-) [b-]
Which piece, JAKE? (circle
)
The available pieces are
(B+) (R-) [R-] [R+] (b-) [b-] (r+) [r+]
Candidates after size filtering are
(B+) (R-) [R-] [R+] (b-) [b-] (r+) [r+]
Candidates after color filtering are
(B+) (R-) [R-] [R+] (b-) [b-] (r+) [r+]
Candidates after style filtering are
(B+) (R-) [R-] [R+] (b-) [b-] (r+) [r+]
Candidates after shape filtering are
(B+) (R-) (b-) (r+)
The selection is
(R-)
JAKE: I select (R-) for you to place on the board.
On which cell will you place (R-), IAN?
(A3 B1 B3 C1 C2 D1 D2 D3)
> A3
IAN:  Placing piece (R-) on cell A3 ...

D    **** **** **** [b+]
C    **** **** (b+) [r-]
B    **** (r-) **** (B-)
A    (R+) [B-] (R-) [B+]
     1    2    3    4

Congratulations, IAN!
NIL
[3]> (bye)
Bye.