(define (main args) (let* ((n (read)) (s "IGNITION")) (display (string-ref s (- n 1))) (newline) ) 0)