(define yuki1168
  (begin
    (display (+ (modulo (- (apply + (map (^x (- x 48)) (map char->integer (string->list (read-line))))) 1) 9) 1))
    (newline)))