$ 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)