$ clisp <...snip...> [1]> (load "quarto.l") ;; Loading file quarto.l ... ;; Loading file lp.l ... ;; Loaded file lp.l ;; Loaded file quarto.l T [2]> (task27--display-board-demo) Initial board... D **** **** **** **** C **** **** **** **** B **** **** **** **** A **** **** **** **** 1 2 3 4 Animal playground... D ???? **** ???? **** C **** ???? ???? ???? B ???? ???? ???? ???? A ???? ???? ???? **** 1 2 3 4 Initial board... D **** **** **** **** C **** **** **** **** B **** **** **** **** A **** **** **** **** 1 2 3 4 Quarto playground... D (r-) **** (r-) **** C **** [r+] (B-) (B+) B [b+] [R-] [R+] [r-] A [B-] [B+] [b-] **** 1 2 3 4 NIL [3]> (bye) Bye.