(use srfi-13)
(define (solve s)
  (abs (- (string-length s) 10))
)
(let ((s (read-line))) (print (solve s)))