#!/usr/bin/perl -w

my ($last_line_was_blank) = 0;

while(<STDIN>) {
    chomp;

    if (/^\s*$/) {
        next if ($last_line_was_blank);
        $last_line_was_blank = 1;
    } else {
        $last_line_was_blank = 0;
    }
    print "\n" . '"' . $_ . '\n"';
}

print ",\n";

