$b=1683;printf'A%-2d%5dmm x%5dmm
',$_,$b/2,$b*=.707for 0..10