#!/usr/bin/perl

$width = 0;
$height = 0;

while (<STDIN>) {
	if (m/^([0-9]+)[ \t]+([0-9]+)[ \t]+([0-9]+)[ \t]+([0-9]+)[ \t]+bbox/) {
		print "%%BoundingBox: $1 $2 $3 $4\n";
		print "\n";
	} else {
		print $_;
	}
}