for$i(1..1e6){$-=$i;map$d[$i]+=($d[--$-]+1)/$_,12,6,4,12,4,6}<>;print$d[$_],$/for<>