for($a=1189,$b=1682;$i<11;$i++){printf"A%-2d%5dmm x%5dmm\n",$i,$i%2?($a/=2,$b):($b/=2,$a)}