#!/usr/bin/perl
# e2a -- Version 1.00 97.01.27
# (c) 1997, Hellenic Resources Institute, Inc.

@message = <>;
foreach $i ( 0 .. $#message ) {
  $_ = @message[$i];
  s/\266/;A/g;
  s/\270/;E/g;
  s/\271/;H/g;
  s/\272/;I/g;
  s/\274/;O/g;
  s/\276/;Y/g;
  s/\277/;V/g;
  s/\332/:I/g;
  s/\333/:Y/g;
  s/\334/;a/g;
  s/\335/;e/g;
  s/\336/;h/g;
  s/\337/;i/g;
  s/\374/;o/g;
  s/\375/;y/g;
  s/\376/;v/g;
  s/\372/:i/g;
  s/\373/:y/g;
  s/\337/:;i/g;
  s/\340/:;y/g;
  tr/\301-\321\323-\331\341-\371/ABGDEZHUIKLMNJOPRSTYFXCVabgdezhuiklmnjoprwstyfxcv/;
  print $_;
}

exit;