#!/usr/bin/perl
#
#
#

$prev = <>;
chomp $prev;
while (<>) {
  $next = $_; chomp $next;

# check for ellipt. annulus
  @prev = split (' ',$prev);
  @next = split (' ',$next);

  if ( $#prev == 0 && $#next == 2 ) {
    if ($prev[0] =~ /^(fk[45];)?ellipse/i && 
	$next[0] =~ /^$1ellipse/i &&
	$next[1] eq "&" && 
	$next[2] =~ /\!ellipse\(/i ) {
      $tmp = $prev;
      $tmp =~ s/^fk[45];//;
      if ( "\!$tmp" eq $next[2] ) {
	$tmp = $next;
	$tmp =~ s/^(fk[45];)?//i;
	$fk = $1;
	$tmp =~ s/[A-Z,a-z,()&!]/ /g;
	@par = split(' ',$tmp);
	if ( $#par == 9 ) {
	  ($xc,$yc,$routx,$routy,$aout,$xcin,$ycin,$rinx,$riny,$ain) = @par;
	  if ( $xc == $xcin && $yc == $ycin ) {
	    print $fk,"elliptannulus(",join(',',$xc,$yc,$rinx,$riny,$routx,$routy,$ain,$aout),")\n";
	    $prev="";
	    next;
	  }
	}
      }
    }
  }

  print $prev,"\n";
  $prev = $next;

}

if ($prev ne "") {
  print $prev,"\n";
}
