#!/usr/bin/perl

while (<STDIN>){
  chomp ;
  unless (/^4 /) { next ; }

#  4 u fg depth u font pt angle flags
# 0 times  add 1 bold add 2 oblique
# 4 av ss
# 12 courier
# 16 helvetica ss
# 24 new sc
# 28 palatino
  #4 0 0 100   0 27   18 0.0000 4      210 750 1425 1650 line 1\001
  @f = split(/ /) ;
  $x = $f[11] ; $y = $f[12] ;
  for ($i=0;$i<13;$i++) { shift(@f) ; }
  $text = join(' ',@f) ; 
  $text =~ s/\\001$// ;
  $text =~ s/\\([\d][\d][\d])/pack("C",oct($1))/ge;

  print "$text\n" ;
}