x:=1189 for($,0,10,write(("A"..$)alignLeft(3),(x=($ =x)*.707)asString(5,0),"mm x",$asString(5,0),"mm "))