RosettaCodeData/Task/Write-float-arrays-to-a-text-file/XPL0/write-float-arrays-to-a-text-file.xpl0

include xpllib; \for Print
real X, Y;
int  N;
[X:= [1., 2., 3., 1e11];
 Y:= [1., 1.4142135623730951, 1.7320508075688772, 316227.76601683791];
 for N:= 0 to 3 do
     Print("%1.2g\t%1.4g\n", X(N), Y(N));
]