#!/usr/bin/perl -w

use strict;

my $fs=11;

print "
\%!
 /Courier findfont $fs scalefont setfont
 0 800 moveto
" or die;

print "gsave 1 setgray 0 $fs rlineto stroke grestore\n" or die $!;

while (<STDIN>) {
    chomp or die;
    print "gsave (" or die;
    s/[\\()]/\\$&/g;
    print or die $!;
    print ") show grestore 0 -$fs rmoveto\n" or die $!;
}

print "1 setgray 0 $fs rmoveto 1 1 rlineto stroke showpage\n" or die $!;