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