#!/bin/rc

opt=()
while(~ $1 -*){
	opt=($opt $1)
	shift
}

cat $* | troff $opt | striptease | aux/tr2post | 
sed '1a\
	%%BoundingBox: 0 0 640 480
'