sub matrix_transpose {
        my $rows  = shift;
        [ seq_values( seq_zip( seqs(@$rows) ) ) ];
    }

    my $matrix = [ [ 0, 1 ]
                 , [ 2, 3 ]
                 , [ 4, 5 ] ];

    print Dumper( matrix_transpose( $matrix ) ), "\n";
    # [ [0,2,4]
    # , [1,3,5] ]