segs by m.ukai

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

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page