BEGIN { line=0 } { FS=",|<="; line++; if(line >= 12 ) if( match ( $0, "<=" ) > 0 ) { gsub(" ", "", $1); left = $1; z = 0; for(i=2 ; i<=NF ; i++) { gsub("\(|\)|;| ","",$i); z++; right[z] = $i; } while( right[z]=="" ) { getline; z--; for(i=1 ; i<=NF ; i++) { gsub("\(|\)|;| ","",$i); z++; right[z] = $i; } } for(i=1;i<=z;i++) { print "\t"left"("z-i") <= "right[i]";" } } else if( match ($0, "use work.") == 0) { print $0; } }