#!/usr/local/bin/mzscheme -u --main


(module money mzscheme

  (define-struct dollar (amount))
  
  (provide make times amount)

  (define make make-dollar)

  (define (times money multiplier)
    (set-dollar-amount! money
                        (* (amount money) multiplier)))
  
  (define (amount money)
    (dollar-amount money))



  
  
  )