Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. All rights reserved.

C:\Users\Tara>clisp
  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 "C:/Users/Tara/Desktop/416/die.l")
;; Loading file C:\Users\Tara\Desktop\416\die.l ...
;;  Loading file C:\Users\Tara\Desktop\416\lp1.l ...
;;  Loaded file C:\Users\Tara\Desktop\416\lp1.l
;;  Loading file C:\Users\Tara\Desktop\416\accumulator.l ...
;;  Loaded file C:\Users\Tara\Desktop\416\accumulator.l
;; Loaded file C:\Users\Tara\Desktop\416\die.l
T
[2]> (setf d1 (make-instance 'die))
#<DIE #x1A9F7FF5>
[3]> (setf d2 (make-instance 'die))
#<DIE #x1A9F8DB9>
[4]> (setf d3 (make-instance 'die :numfaces 3))
#<DIE #x1A9F9921>
[5]> (setf d12 (make-instance 'die :numfaces 12))
#<DIE #x1A9FA491>
[6]> (roll-for-pair-e d1 d2)
"Expect 6.37 times"
[7]> (roll-for-pair-e d1 d2)
"Expect 5.41 times"
[8]> (roll-for-pair-e d1 d2)
"Expect 6.83 times"
[9]> (roll-for-pair-e d3 d12)
"Expect 11.9 times"
[10]> (roll-for-pair-e d3 d12)
"Expect 9.95 times"
[11]> (roll-for-pair-e d3 d12)
"Expect 12.83 times"
[12]> (roll-for-sum-e d1 d2 7)
"Expect 6.1 times"
[13]> (roll-for-sum-e d1 d2 7)
"Expect 7.49 times"
[14]> (roll-for-sum-e d3 d12 7)
"Expect 11.86 times"
[15]> (roll-for-sum-e d3 d12 7)
"Expect 12.88 times"
[16]> (roll-for-sum-e d1 d2 11)
"Expect 19.9 times"
[17]> (roll-for-sum-e d1 d2 11)
"Expect 16.5 times"
[18]> (roll-for-sum-e d3 d12 11)
"Expect 12.73 times"
[19]> (roll-for-sum-e d3 d12 11)
"Expect 12.0 times"
[20]> (7-11-double-e d1 d2)
"Expect 3.3 times"
[21]> (7-11-double-e d1 d2)
"Expect 2.79 times"
[22]> (7-11-double-e d3 d12)
"Expect 6.02 times"
[23]> (7-11-double-e d3 d12)
"Expect 6.58 times"
[24]> (bye)
Bye.

C:\Users\Tara>