{ rows++; columns = NF
  for (i = 1; i <= NF; i++) cell[rows, i] = $i
}
END {
  for (i = 1; i <= columns; i++) {
    for (j = 1; j <= rows; j++)
      printf "%s%s", (j == 1 ? "" : " "), cell[j, i]
    printf "\n"
  }
}