; counting fingers

(define (finger n)
  (case (modulo n 8)
    ((1  ) 'thumb)
    ((2 0) 'index)
    ((3 7) 'middle)
    ((4 6) 'ring)
    ((5  ) 'pinkie)))

(display (finger 1000)) (newline)