Numbering by m.ukai

let a=read_int()open Printf;;for i=1to 3do
printf"%d
"i;for j=1to a/2*3do
printf"%4d.%d
"i j;for k=1to a/3*3do
printf"%7d.%d.%d
"i j k
done
done
done

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

download

return to the top page