tax.scm

;	income-tax
;   arguments: 3
;   income - the income on which to be taxed
; algorithm:
;	  first 35k @ 15%
;   second 65k @ 25%
;	  third 10k @ 35%
;	  state-first 50k @ 5%
(define (income-tax income)

	(define (state-tax income)

    (define (state-tax-subtract income)
      (- income 50000)
    )
    (define (state-tax-calc income)
     (* .05 (state-tax-subtract income))
    )

   (if (> income 50000) (state-tax-calc income) 0)
  )

  (define first in)
    (* .15 in)
  )

)