$ 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 d6a (make-instance 'die))
#<DIE #x106B4501>
[3]> (setf d6b (make-instance 'die))
#<DIE #x106C6D51>
[4]> (setf d3 (make-instance 'die :sides 3))
#<DIE #x106C78A9>
[5]> (setf d12 (make-instance 'die :sides 12))
#<DIE #x106C840D>
[6]> (ep-pair d6a d6b 10000)
6.0192
[7]> (ep-pair d6a d6b 10000)
5.9131
[8]> (ep-pair d3 d12 10000)
11.9594
[9]> (ep-pair d3 d12 10000)
11.9251
[10]> (ep-sum d6a d6b 7 10000)
5.999
[11]> (ep-sum d6a d6b 7 10000)
6.0702
[12]> (ep-sum d3 d12 7 10000)
12.0948
[13]> (ep-sum d3 d12 7 10000)
12.0893
[14]> (ep-sum d6a d6b 11 10000)
18.1284
[15]> (ep-sum d6a d6b 11 10000)
17.9354
[16]> (ep-sum d3 d12 11 10000)
12.0941
[17]> (ep-sum d3 d12 11 10000)
11.7988
[18]> (ep-7-11-doubles d6a d6b 10000)
2.5815
[19]> (ep-7-11-doubles d6a d6b 10000)
2.5687
[20]> (ep-7-11-doubles d3 d12 10000)
4.0468
[21]> (ep-7-11-doubles d3 d12 10000)
4.0147
[22]> (bye)
Bye.