var i,k,n:comp;begin repeat
i:=i+1;val(("36#1")[1..ord(i>15)+3]+("00000c00k01401o02s03c03w03z3yt3yw3yy3z83zgjq4b6nb6zbhxbi4bukc5oc9ncxgdsudswexof1df1pftbftfftpg46g4ag4eg4li4ri4tiskiw5iwoiwrj3oj7pj83jkcjodjvgkc4kftkgal85")[i*3-2..i*3],k,n);write(k,":");n:=2;while
k>1do begin while k mod n>0do n:=n+1;k:=k div n;write(^`,n)end;writeln until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).