$a=(1104,1088,4908)[$$%3];$_>9&&($a/=2)%2&&s/$/*/,print for<>