#!/usr/bin/perl -w
#
                                                                                
use strict;
                                                                                
my $value;
                                                                                
while ( not defined $value or $value eq 'R' )
{
   chomp($value = <STDIN>)
                                                                                
   if ( $value eq 'E')
   {
      exit;
   }
}