$ 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
[2]> (setf a (make-instance 'die))
#<DIE #x106AE1A9>
[3]> (setf b (make-instance 'die))
#<DIE #x106B09E5>
[4]> (display a)(display b)
[1,NIL]
NIL
[5]> [1,NIL]
NIL
[6]> (roll-for-pair a b)
NIL
[7]> (display a)(display b)
[2,(2 4 2)]
NIL
[8]> [2,(6 6 2)]
NIL
[9]> (roll-for-pair a b)
NIL
[10]> (display a)(display b)
[2,(2 4 2 1 2 3 5 2)]
NIL
[11]> [2,(6 6 2 4 4 6 6 2)]
NIL
[12]> (roll-for-pair a b)
NIL
[13]> (display a)(display b)
[6,(2 4 2 1 2 3 5 2 1 5 5 6 4 2 4 2 6 5 2 2 4 6 6)]
NIL
[14]> [6,(6 6 2 4 4 6 6 2 6 1 4 2 3 1 1 6 3 3 6 5 1 3 6)]
NIL
[15]> (bye)
Bye.