(defun main (&rest argv)
  (declare (ignorable argv))
  (format t "~d~%" (integer-length (1- (read)))))

(main)