END{OFS="> ";k=NF=31 for($(OFS=E)=$0;--k>1;print){ k<29&&$++i=/>/?"^":"<" $k=k>15?"v":i>15?$i:"@" k+=/@/&&$(i+=2)="<"}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page