//
on <businessEntity> IP p-1 IP p-2 IP p-3;
on <name> IP p-1 IP p-2 IP p-3;
on <descrIPtion> IP p-1 IP p-2 IP p-3;
on <discoveryURLs> IP p-1 IP p-2 IP p-3;
on <discoveryURL> IP p-1 IP p-2 IP p-3;
on <contacts> IP p-1 IP p-2 IP p-3;
on <contact> IP p-1 IP p-2 IP p-3;
on <personName> IP p-1 IP p-2 IP p-3;
on <phone> IP p-1 IP p-2 IP p-3;
on <email> IP p-1 IP p-2 IP p-3;
proc main;
	exec EP 'inputXML' %1;
	return $ERROR;
end proc;

proc p-1;
	loop %0;
		print %1;
		LET SHIFT;
	end loop;
	return $ERROR;
end proc;

proc p-2;
	loop %0;
		print %1;
		LET SHIFT;
	end loop;
	return $ERROR;
end proc;

proc p-3;
	loop %0;
		print %1;
		LET SHIFT;
	end loop;
	return $ERROR;
end proc;
