open String
let(!)=length
let rec f?(s=read_line())b=let t=make(max!s!b)' 'in
blit s 0t 0!s;for i=0to!b-1do
t.[i]=' '&()=(t.[i]<-b.[i])done;print_endline t;f t;;f""