sub transpose
{
	local *_'_;
	map { $_'_ = $_; [ map $_->[$_'_], @_ ] } 0 .. $#{$_[0]}
}