pi:~> cd public_html/coursework/csc416/assignments
pi:~/public_html/coursework/csc416/assignments> 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 "die.l")
;; Loading file die.l ...
;; Loaded file die.l
T
[2]> (setf d1 (make-instance 'die))
#<DIE #x000335124288>
[3]> (setf d1 (make-instance 'die :numOfFaces 4))
#<DIE #x000335125590>
[4]> (setf d1 (make-instance 'die))
#<DIE #x000335126370>
[5]> (setf d2 (make-instance 'die :numOfFaces 4))
#<DIE #x0003351271D8>
[6]> (setf d3 (make-instance 'die :numOfFaces 12))
#<DIE #x000335128050>
[7]> (roll d1)
NIL
[8]> (roll d1)
NIL
[9]> (roll d1)
NIL
[10]> (roll d1)
NIL
[11]> (roll d1)
NIL
[12]> (roll d2)
NIL
[13]> (roll d2)
NIL
[14]> (roll d2)
NIL
[15]> (roll d2)
NIL
[16]> (roll d2)
NIL
[17]> (roll d3)
NIL
[18]> (roll d3)
NIL
[19]> (roll d3)
NIL
[20]> (roll d3)
NIL
[21]> (roll d3)
NIL
[22]> (examine d1)
"Number of Faces: 6 
 Top Face: 4 
 Die History: (5 2 3 2 4)"
[23]> (examine d2)
"Number of Faces: 4 
 Top Face: 3 
 Die History: (1 1 1 4 3)"
[24]> (examine d3)
"Number of Faces: 12 
 Top Face: 6 
 Die History: (3 5 6 3 6)"
[25]> (roll d1)
NIL
[26]> (examine d1)
"Number of Faces: 6 
 Top Face: 5 
 Die History: (5 2 3 2 4 5)"
[27]> (roll d2)
NIL
[28]> (examine d2)
"Number of Faces: 4 
 Top Face: 3 
 Die History: (1 1 1 4 3 3)"
[29]> (roll d3)
NIL
[30]> (examine d3)
"Number of Faces: 12 
 Top Face: 6 
 Die History: (3 5 6 3 6 6)"
[31]>