RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Phix/loop-over-multiple-arrays-simultaneously.phix

procedure print3(sequence a, b, c)
    for i=1 to min({length(a),length(b),length(c)}) do
        printf(1, "%s%s%g\n", {a[i], b[i], c[i]})
    end for
end procedure

print3("abc","ABC",{1, 2, 3})