$/=$";($P,$C)=<>; @p=(2,3,5,7,11,13); @c=(4,6,8,9,10,12); $ap+=$_/6 for @p; $ac+=$_/6 for @c; print $ap**$P*$ac**$C