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 "dice.lsp")
;; Loading file dice.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;;  Loading file CLOS.lsp ...
;;  Loaded file CLOS.lsp
;; Loaded file dice.lsp
T
[2]> (setf six-sided (make-instance 'dice))
#<DICE #x1AA83081>
[3]> (display six-sided)
[1, NIL]
NIL
[4]> (roll six-sided)
NIL
[5]> (display six-sided)
[3, (3)]
NIL
[6]> (roll six-sided)
NIL
[7]> (display six-sided)
[6, (3 6)]
NIL
[8]> (roll six-sided)
NIL
[9]> (display six-sided)
[6, (3 6 6)]
NIL
[10]> (roll six-sided)
NIL
[11]> (display six-sided)
[4, (3 6 6 4)]
NIL
[12]> (roll six-sided)
NIL
[13]> (display six-sided)
[4, (3 6 6 4 4)]
NIL
[14]> (setf four-sided (make-instance 'dice :size 4))
#<DICE #x1AA9D9A1>
[15]> (display four-sided)
[1, NIL]
NIL
[16]> (roll four-sided)
NIL
[17]> (display four-sided)
[1, (1)]
NIL
[18]> (roll four-sided)
NIL
[19]> (display four-sided)
[2, (1 2)]
NIL
[20]> (roll four-sided)
NIL
[21]> (display four-sided)
[1, (1 2 1)]
NIL
[22]> (roll four-sided)
NIL
[23]> (display four-sided)
[3, (1 2 1 3)]
NIL
[24]> (roll four-sided)
NIL
[25]> (display four-sided)
[2, (1 2 1 3 2)]
NIL
[26]> (setf twelve-sided (make-instance 'dice :size 12))
#<DICE #x1AAA9089>
[27]> (display twelve-sided)
[1, NIL]
NIL
[28]> (roll twelve-sided)
NIL
[29]> (display twelve-sided)
[10, (10)]
NIL
[30]> (roll twelve-sided)
NIL
[31]> (display twelve-sided)
[11, (10 11)]
NIL
[32]> (roll twelve-sided)
NIL
[33]> (display twelve-sided)
[9, (10 11 9)]
NIL
[34]> (roll twelve-sided)
NIL
[35]> (display twelve-sided)
[3, (10 11 9 3)]
NIL
[36]> (roll twelve-sided)
NIL
[37]> (display twelve-sided)
[11, (10 11 9 3 11)]
NIL
[38]> (bye)
Bye.