(define yuki1642
  (format #t "~3,'0D~%" (read)))