#!/usr/bin/perl --
#
#
#
my $all_data = '';
while(<STDIN>){
	$all_data .= $_;
}
$all_data =~ s/(^diff .*?|\r\ndiff .*?)\r\n(--- .*?)\r\n(\+\+\+ .*?)\r\n(@@ .*? @@)/\1\n\2\n\3\n\4/gs;
print $all_data;
# [ End of File ]