sample.clj

(defn between [from target to]
  (and (<= from target) (<= target to)))

(defn calculate-loan-size
  [loan-amount]
  (cond
    (between 1 loan-amount 10000) :small
    (between 10001 loan-amount 50000) :modest
    (between 50001 loan-amount 150000) :large
    (>= loan-amount 150001) :jumbo))