let s=read_line()open String;;for i=1to 26do for j=1to i do print_endline(sub s(length s-i)j) done done