The R Project SVN R

Rev

Rev 167 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

#! @PERL@

undef $/;

$_ = <>;
s/\n*$/\n\n/s;               # remove all trailing blank lines
s/\n\s*\n\s*\n/\n\n/sg;    # convert two blank lines into one
print;