#lang s-exp "cond-lang.ss"

(define (classify-age n)
  (cond [(< n 0) 'twinkle-in-daddys-eye]
        [(< n 10) 'precocious]
        [(< n 20) 'cheeky]
        [(< n 30) 'spunky]
        [(< n 50) 'not-dead-yet]
        [(< n 120) 'cobol-programming]
        [else  'holy-fate-worse-than-death-batman!]))

(classify-age 121)