(let1 s(read-line)(dotimes'(string-length s)(print s)))