(define yuki809
  (let*
    (
      (c (read))
    )
    (write c) (display #\space) (write 1) (newline)
  )
)