Welcome to DrScheme, version 301. Language: Textual (MzScheme, includes R5RS). Defined class: xcar Defined class: person #t > (define car1 (new xcar 'mercedes 250 null form1)) > (define dude (new person 40 'eck)) > (define punk (new person 17 'bubba)) > (define geez (new person 78 'oldtimer)) > > (car1 'status) CAR STATUS Car type: mercedes Driver: no driver Fuel: Empty! Aint goin nowhere... > (car1 'drive) Dude! You are SO outta gas. This buggy ain't going nowhere! > (car1 'fillup 15) > (car1 'status) CAR STATUS Car type: mercedes Driver: no driver Fuel: 15 > (car1 'drive) Cant drive without a driver, you moron! > (car1 'new_driver dude) > (car1 'status) CAR STATUS Car type: mercedes Driver: eck , 40 years old. A nice fella... Fuel: 15 > (car1 'drive) Woohoo! Rippin along at a breezy 125 miles per hour! > (car1 'status) CAR STATUS Car type: mercedes Driver: eck , 40 years old. A nice fella... Fuel: 9 > (car1 'insurance) 300 > (car1 'new_driver punk) > (car1 'status) CAR STATUS Car type: mercedes Driver: bubba , 17 years old. Crazy punk kid! Fuel: 9 > (car1 'drive) Woohoo! Rippin along at a breezy 250 miles per hour! ...putt...putt...paaaaa.....You're outta gas! > (car1 'status) CAR STATUS Car type: mercedes Driver: bubba , 17 years old. Crazy punk kid! Fuel: Empty! Aint goin nowhere... > (car1 'fillup 20) > (car1 'insurance) 705 > (car1 'new_driver geez) > (car1 'status) CAR STATUS Car type: mercedes Driver: oldtimer , 78 years old. What a geezer! Fuel: 20 > (car1 'drive) Woohoo! Rippin along at a breezy 50 miles per hour! > (car1 'status) CAR STATUS Car type: mercedes Driver: oldtimer , 78 years old. What a geezer! Fuel: 18 > (car1 'insurance) 153 >