[frink@thepurplebuffalo ~/.superfrink.net/htdocs/bingo]$scheme
Scheme Microcode Version 14.9
MIT Scheme running under GNU/Linux
Type `^C' (control-C) followed by `H' to obtain information about interrupts.
Scheme saved on Monday June 17, 2002 at 10:03:44 PM
  Release 7.7.1
  Microcode 14.9
  Runtime 15.1

1 ]=> (load "bingo.scm")

;Loading "bingo.scm" -- done
;Value: card-report

1 ]=> (main)
(
  ("Numbers" 10 30 46 57 67 68 
             8 18 27 34 37 66
             10 17 27 44 45 72 )
  ("Card1" 2 5 8 10 17 23 26 30 33 37 40 44 46 49 54 57 61 67 68 75)
  ("card2" 3 8 14 15 18 23 26 27 33 34 37 40 46 49 52 60 61 66 67 75)
  ("Card3" 3 5 14 15 18 21 26 27 33 40 44 45 46 49 52 57 61 63 67 75)
)
Card1 has 10 numbers left: (2 5 23 26 33 40 49 54 61 75).
card2 has 12 numbers left: (3 14 15 23 26 33 40 49 52 60 61 75).
Card3 has 13 numbers left: (3 5 14 15 21 26 33 40 49 52 61 63 75).
;Value: #t

1 ]=> 
End of input stream reached
Happy Happy Joy Joy.
[frink@thepurplebuffalo ~/.superfrink.net/htdocs/bingo]$vi typescript 
skipping 7 old session files
reading typescript
7
7[?47h
Read typescript, 0 lines, 0 chars
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
Read typescript, 0 lines, 0 chars:q![?47l88
[frink@thepurplebuffalo ~/.superfrink.net/htdocs/bingo]$