(define yuki815 (begin (display (+ (quotient (- (read) 1) 2) 1)) (newline)))