$N=<>; //,map$x+=$'*$_==$N,4,6,8,9,10,12for 2,3,5,7,11,13; print$x/36,$/