#!/usr/bin/perl
#

$line1 = <>;

while (defined ($line2 = <>)) {
         if ((($line1 =~ /^$/) && ($line2 =~ /^$/)) ||
	      ($line1 !~ /^$/))
	 {
             print $line1;
         }
      $line1 = $line2;
}