let s=read_line()let l=String.length s-1;;for i=l downto 0do
for k=i to l do
for j=i to k do
print_char s.[j]done;print_newline()done
done