for$i(1..1e6){$d{$i}=1;$d{$i}+=$d{$i-$_-1}*(1,2,3,1,3,2)[$_]/12for 0..5}<>;print$d{$_+0},$/while<>