; 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)
OyBjb3VudGluZyBmaW5nZXJzCgooZGVmaW5lIChmaW5nZXIgbikKICAoY2FzZSAobW9kdWxvIG4gOCkKICAgICgoMSAgKSAndGh1bWIpCiAgICAoKDIgMCkgJ2luZGV4KQogICAgKCgzIDcpICdtaWRkbGUpCiAgICAoKDQgNikgJ3JpbmcpCiAgICAoKDUgICkgJ3BpbmtpZSkpKQoKKGRpc3BsYXkgKGZpbmdlciAxMDAwKSkgKG5ld2xpbmUp