(define (alquiler km)
  (cond
    [(<= km 100) (+ 100000 (* 100000 0.16))]
    [(and (> km 100)(<= km 500)) (+ 100000 (* 0.16(+ 100000(* (- km 100) 3000))) (* (- km 100) 3000))]
    [(> km 500) (+ (* (- km 500)1000) (* 0.16 (+ 100000(* (- km 100) 3000))) 100000)]
    )
  )