#!/usr/bin/perl

my $R_ps_begin = "__R_PS_BEGIN__" ;
my $R_ps_end = "__R_PS_END__" ;

$| = 1 ;
print $R_ps_begin ;
open(EPS,"|epsffit 0 0 300 300") ;
while( <> ){
	print EPS $_ ;
}
close(EPS);
print "\n" ;
print $R_ps_end."\n" ;
