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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page