i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "mc.lsp")
;; Loading file mc.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file mc.lsp
T
[2]> (mc)
left bank: M, M, M, C, C, C, B.
*right-bank* NIL
(c c b)
left bank: M, M, M, C.
right bank: B, C, C.
(c b)
left bank: B, C, M, M, M, C.
right bank: C.
(m b)
left bank: C, M, M, C.
right bank: B, M, C.
(c b)
left bank: B, C, C, M, M, C.
right bank: M.
Yummy yummy yummy, I got Good in my tummy!
NIL
[3]> (mc)
left bank: M, M, M, C, C, C, B.
*right-bank* NIL
(c c b)
left bank: M, M, M, C.
right bank: B, C, C.
(c b)
left bank: B, C, M, M, M, C.
right bank: C.
(c c b)
left bank: M, M, M.
right bank: B, C, C, C.
(c b)
left bank: B, C, M, M, M.
right bank: C, C.
(c c b)
move inapplicable
NIL
[4]> (mc)
left bank: M, M, M, C, C, C, B.
*right-bank* NIL
(c c b)
left bank: M, M, M, C.
right bank: B, C, C.
(c b)
left bank: B, C, M, M, M, C.
right bank: C.
(c c b)
left bank: M, M, M.
right bank: B, C, C, C.
(c b)
left bank: B, C, M, M, M.
right bank: C, C.
(m m b)
left bank: C, M.
right bank: B, M, M, C, C.
(m c b)
left bank: B, C, M, C, M.
right bank: M, C.
(m m b)
left bank: C, C.
right bank: B, M, M, M, C.
(c b)
left bank: B, C, C, C.
right bank: M, M, M.
(c c b)
left bank: C.
right bank: B, C, C, M, M, M.
(c b)
left bank: B, C, C.
right bank: C, M, M, M.
(c c b)
*left-bank* NIL
right bank: B, C, C, C, M, M, M.
good work!
NIL
[5]> (bye)
Bye.