awk '{for(i=1;i<=NF;i++) a[NR][i]=$i}
END{
for(j=1;j<=NF;j++){
for (i=1;i<=NR;i++){
print a[i][j]
}
print "\n"
}
}' $1
awk '{for(i=1;i<=NF;i++) a[NR][i]=$i}
END{
for(j=1;j<=NF;j++){
for (i=1;i<=NR;i++){
print a[i][j]
}
print "\n"
}
}' $1