(define (calculaIR x)
	 (cond
	    ((< sb 1800) 0)
	    ((< sb 5000) (* sb 0.1))
	    ((< sb 7000) (* sb 0.15))
	    (else (* sb 0.275))
	  )
)



(display "Digite o nome do funcionário:")
(define nome (read))
(display "Digite o salário bruto do funcionário:")
(define sb (read))
(display "Digite o número de dependentes do funcionário:")
(define dep (read))

(define sl (let (
                (ir (calculaIR sb))
                (inss (* sb 0.11))
                (aux (* dep 300))
                )
                (+ (- sb ir inss) aux )
            )
)
(define aux (let (
                (define (calculaAuxilioDep x) (* x 300))
            )
)
(define inss (let (
                (define (calculaINSS x) (* x 0.11))
            )
)


(display "Funcionário: ")
(display nome)
(newline)
(display "Salário Bruto: ")
(display sb)
(newline)
(display "Desconto do Imposto de renda :")
(display ir)
(newline)
(display "Desconto do INSS :")
(display inss)
(newline)
(display "Auxílio por dependente :")
(display aux)
(newline)
(display "Salário líquido :")
(display sl)
(newline)