let l x=x/3-x/5in for i=0to 14do let d=ref 0in for x=1to 100do if l x=i then(print_string(String.make!d ' ');print_int x;d:=0)else d:=!d+if x<10then 1else 2done;print_char '\n'done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).