#!/usr/bin/perl

while (<>) {
	s#^(C[FP]\d+-\d+).+#<u $1>#;
	s#</s>#</u>#;
	s#<\/?[tps]>\n##g;
	next if (/^SOURCE/);
	next unless (/\S/);
	s#([NA])<arg#$1<#g;
	s#<[^<]+\?>##g;
	s# +\)#\)#g;
	print $_;
}