transpose a text table

transpose.awk

#!/usr/bin/awk -f

# taken from: http://stackoverflow.com/questions/1729824/transpose-a-file-in-bash
{
    for (i=1; i<=NF; i++)  {
        a[NR,i] = $i
    }
}
NF>p { p = NF }
END {
    for(j=1; j<=p; j++) {
        str=a[1,j]
        for(i=2; i<=NR; i++){
            str=str"\t"a[i,j];
        }
        print str
    }
}