(use srfi-13)
(print (make-string (+ 1 (string-count (read-line) #\a)) #\a))