Shell Programming and Scripting

\gla {itl\'i\textglotstop{}} {k\textsuperscript{w}uk\textsuperscript{w}} {t\textschwa{}cx\textsuperscript{w}\'u\texthalflength\texthalflength{}y.}//   
\glb {itl\'i\textglotstop{}} {k\textsuperscript{w}uk\textsuperscript{w}} {tc+\ts{}x\textsuperscript{w}\'uy}// 
\glc \textsc{dem} \textsc{rep} \textsc{loc}+go //  
\glc from.there they.say came.over.this.way // 
\glft `They said he was coming along.' //    

\gla {u\textbeltl{}} {cut} {k\textsuperscript{w}uk\textsuperscript{w}} {al\'a\textglotstop{}} {lut} {i\textglotstop{}} {q\'aqx\textsuperscript{w}\textschwa{}lx} {ka\textglotstop} {cx\textsuperscript{w}uys} {i\textglotstop{}} {l} {siw\textbeltl{}k\textsuperscript{w}.} //  
\glb {u\textbeltl{}} {cut} {k\textsuperscript{w}uk\textsuperscript{w}} {al\'a\textglotstop{}} {lut} {i\textglotstop{}} {q\'a(\tb)\ts{}qx\textsuperscript{w}lx} {ki\textglotstop} {c\textendash{}\ts{}x\textsuperscript{w}uy\textendash{}s} {i\textglotstop{}} {l} {siw\textbeltl{}k\textsuperscript{w}} //  
\glc \textsc{conj} say \textsc{rep} \textsc{dem} \textsc{neg} \textsc{det} fish \textsc{comp.obl} \textsc{cust}\textendash go\textendash \textsc{3sg.poss} \textsc{det} \textsc{loc} water //  
\glc and he.said they.say here no the fish where.that they.come the through water //  
\glft `Coyote said there will be no fish going through the water here.' //

with open("b.txt") as file:
	lines=file.readlines()
a=[
	[
		i[j]
		for i in 
		[
			j for j in [j.split(" ") for j in [line.replace("\n","") for line in lines ]]
		]
	]
	for j in range(len(lines[0].split(" ")))
]


for i in a[1:]:
	print(" ".join(i))

awk '{
        for(i=1;i<=NF;i++){
                arr[i""NR]=$i
        }
        col=NF
        row=NR
}
END{
        for (i=2;i<=NF;i++){
          for (j=1;j<=NR;j++)
            printf("%s ", arr[i""j])
          print ""
}
}' a

awk '
/^\\glft/       {next
                }
/^\\gla/        {gsub ("} {", "}\&{")
                 BEG=MX
                 MX=NF 
                 DLT=NR-1
                }
/^\\glb/        {gsub ("} {", "}\&{")
                }
/^\\glc/        {sub (" ", "")
                 sub ("[ /]*$", "")
                 gsub(" ", "\&")   
                }

                {sub (/\\gl[abc] */,_)
                 $1=$1
                 for (i = 1; i <= NF; i++)
                        {o[i + BEG, NR - DLT] = $i
                        }
                }

END             {for(i = 1; i <= BEG+MX; i++)
                        for(j = 1; j <= 4; j++)
                                printf ("%s%s", o[i, j], j == 4 ? ORS : OFS)
                }
' FS="&"  OFS=" & " file | sort -u
{al\'a\textglotstop } & {al\'a\textglotstop } & \textsc{dem} & here
{cut} & {cut} & say & he.said
{cx\textsuperscript{w}uys} & {c\textendash \ts x\textsuperscript{w}uy\textendash s} & \textsc{cust}\textendash_go\textendash_\textsc{3sg.poss} & they.come
{i\textglotstop } & {i\textglotstop } & \textsc{det} & the
{itl\'i\textglotstop } & {itl\'i\textglotstop } & \textsc{dem} & from.there
{ka\textglotstop} & {ki\textglotstop} & \textsc{comp.obl} & where.that
{k\textsuperscript{w}uk\textsuperscript{w}} & {k\textsuperscript{w}uk\textsuperscript{w}} & \textsc{rep} & they.say
{l} & {l} & \textsc{loc} & through
{lut} & {lut} & \textsc{neg} & no
{q\'aqx\textsuperscript{w}\textschwa lx} & {q\'a(\tb)\ts qx\textsuperscript{w}lx} & fish & fish
{siw\textbeltl k\textsuperscript{w}.} //  & {siw\textbeltl k\textsuperscript{w}} //  & water & water
{t\textschwa cx\textsuperscript{w}\'u\texthalflength\texthalflength y.}//   & {tc+\ts x\textsuperscript{w}\'uy}//  & \textsc{loc}+go & came.over.this.way
{u\textbeltl } & {u\textbeltl } & \textsc{conj} & and