#!/usr/bin/perl
my $flag=0;
$tmp=$ARGV[0]."_mod.ps";
open OUT, ">$tmp";
while (<>) {
  if (m/BeginSetup/){
      $flag++;
      next;
  }
  if (m/EndSetup/) {
      next;
  }
  if ($flag>0){
      print OUT "\%\%BeginSetup\n";
      print OUT "\%\%EndSetup\n";
      print OUT $_;
      $flag=0;
  }
  else {
      print OUT $_;
  }
}
close OUT;