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