RosettaCodeData/Task/Matrix-transposition/Phix/matrix-transposition.phix

function transpose(sequence in)
sequence out = repeat(repeat(0,length(in)),length(in[1]))
    for n=1 to length(in) do
        for m=1 to length(in[1]) do
            out[m][n] = in[n][m]
        end for
    end for
    return out
end function