set i -1
while \$i<10 {puts [format "A%-2d%5.fmm x%5.fmm" [incr i] [set a [expr 841*pow(.7068,$i)]] [expr $a*1.414]]}