#!/usr/bin/perl

use warnings;
use strict;

print <<EOF ;
\\input ../sgr.tex
EOF
foreach my $f (@ARGV) {
	my $d = $f;
	$d =~ s@/[^/]*$@/@;
	open X, $f or die;
	while (<X>) {
		/^\\input .*sgr\.tex/ && next;
		/^\\bye/ && last;
		s@\\(figure|epsfbox){([^}]+)}@\\$1\{$d$2}@g;
		print;
	}
	close X;
	print "\\bigbreak\\bigbreak\n";
}
print <<EOF ;
\\bye
EOF