ll@P,@C; double a=2+3+5+7+11+13,b=4+6+8+9+10+12; a/=6.,b/=6.; wt(a**P*b**C);