open(F,"<$ARGV[0]");
while($in=<F>) {
	@a=split(/\+\+/,$in);
	print $a[1];
}