$ clisp

<...snip...>

[1]> (load "die_empirical_methods.l")
;; Loading file die_empirical_methods.l ...
;;  Loading file class_die.l ...
;;  Loaded file class_die.l
;;  Loading file class_accumulator.l ...
;;  Loaded file class_accumulator.l
;; Loaded file die_empirical_methods.l
T

<...>

[3]> (setf a (make-instance 'die))
#<DIE #x106B1811>
[4]> (setf b (make-instance 'die))
#<DIE #x106B2339>
[5]> (display a)(display b)
[1,NIL]
NIL
[6]> [1,NIL]
NIL
[7]> (roll-for-sum a b 7)
NIL
[8]> (display a)(display b)
[4,(6 6 2 4 4)]
NIL
[9]> [3,(4 2 1 2 3)]
NIL
[10]> (roll-for-sum a b 3)
NIL
[11]> (display a)(display b)
[2,(6 6 2 4 4 6 6 2)]
NIL
[12]> [1,(4 2 1 2 3 5 2 1)]
NIL
[13]> (roll-for-sum a b 12)
NIL
[14]> (display a)(display b)
[6,(6 6 2 4 4 6 6 2 6 1 4 2 3 1 1 6)]
NIL
[15]> [6,(4 2 1 2 3 5 2 1 5 5 6 4 2 4 2 6)]
NIL
[16]> (forget a)(forget b)
NIL
[17]>
NIL
[18]> (display a)(display b)
[6,NIL]
NIL
[19]> [6,NIL]
NIL
[20]> (roll-for-sum a b 2)
NIL
[21]> (display a)(display b)
[1,(3 3 6 5 1 3 6 1 1)]
NIL
[22]> [1,(5 2 2 4 6 6 4 2 1)]
NIL
[23]> (bye)
Bye.