#! /client/bin/perl

while (<>) {
  chop;
  if (/^\s*$/) {
    print "\\verb' '\n";
    next;
  };

  $r3 = $_;
  while ($r3 =~ /[`']/) {
    $r1 = $`;
    $r2 = $&;
    $r3 = $';
    &verb ($r1);
    if ($r2 eq '`') {
      print '\gr';
    } else {
      print '\ap';
    };
  };
  &verb ($r3);
  print "\n";
};

sub verb {
  my ($gf, $c);
  $gf = 0;
  $_ = $_[0];
  /(^|[^"])(["]*)$/;
  $_ = "$`$1";
  $gf = $2;
  if ($_ ne '') {
    print "\\verb'$_'";
  };
  if ($gf ne '') {
    $gf =~ s/["]/\\gf/g;
    print "$gf"
  };
}