(use scheme.list)

(define yuki756
  (begin
    (display (string-ref (string-join (map number->string (iota 99 1 1)) "") (-  (read) 1)))
    (newline)))