END{for($!split("I II III IV V",A)="I";!$106;$0=s){print;for(s=FS=_;a=$1;)s=s A[b=NF-sub(a"*",_)*NF]a}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page