$k=$i++;print+$s.~õ)for($s=$n='';$n++<7;$k/=$n)$s=$k%$n.$s;