$ scheme48
Welcome to Scheme 48 1.8 (made by klim on Tue Feb 17 11:32:15 CST 2009)
Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
Please report bugs to scheme-48-bugs@s48.org.
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> ,open tables
> ,load /usr/local/share/scheme48-1.8/misc/sicp.scm
> (put 'a 'b 'xxxxx)
#{Unspecific}
> (get 'a 'b)
'xxxxx
> ,exit
$
(define acc (make-account 2010))
(acc 'withdraw 100)
(acc 'deposit 20000)