open String
let rec f?(s=read_line())l=print_endline(make l ' '^s);f(l+length s);;f 0