#!/usr/bin/perl

$cr = "";
open(OUT, ">/dev/null");
while (<>) {
    chop;
    if (/^gap> #####(.*)$/) {
        $name = $1;
        print OUT "|\n";
        close(OUT);
        last if $name eq "";
        open(OUT, ">$name");                
        print OUT "%%", "-" x 70, "\n";
        print OUT "%%   $name\n";
        print OUT "%%", "-" x 70, "\n|";
        $cr = "";
    } else {
        print OUT $cr, "    ", $_;
        $cr = "\n";
    }
}
close(OUT);
