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[b-5]a}}