#!/afs/athena/contrib/perl/perl

$|=1;

while (<>) {
#    if (/w0/) {print " ";}
    if (/setchar([0-9]*)\s/) {
	$code=$1;
	if (($code>32) && ($code<127)) {printf "%c",$code;}
	else {printf "\\%o",$code;}
    }
    if (/set1 ([0-9]*)\s/) {
	$code=$1;
	print "[";
	if (($code>32) && ($code<127)) {printf "%c",$code;}
	else {printf "\\%o",$code;}
	print "]";
    }
}