set y 1682;set i -1;while {[incr i]<11} {set y [expr $y*.7069];puts [format "A%-2d%5.fmm x%5.fmm" $i [expr $y*.707] $y]}