#!/usr/local/bin/perl

# taken from <slrn75nqu1.444.lutz@taranis.iks-jena.de>

while (<>) {
  $endseite = $1 if(/^%%Pages: (\d+)/);

  if(($seite, $zahl) = /^%%Page: (\d+) (\d+) *$/) {
    print "grestore\n" unless $seite == 1;
    print;
    print "gsave\n" .
          "596 0 translate\n" .
          "-1 1 scale\n";
  } elsif (/^%%Trailer/) {
    print "grestore\n";
    print;
  } else {
    print;
  }
}