#!/bin/env perl
use utf8 ;

binmode(STDOUT, ":utf8");
binmode(STDIN, ":utf8");
while (<>) {
	y/ÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÓÔÕÖ×ØÙáâãäåæçèéêëìíîïðñóòôõö÷øùÜÝÞßúÀüýûàþ¶¸¹ºÚ¼¾Û¿/ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρσςτυφχψωάέήίϊΐόύϋΰώΆΈΉΊΪΌΎΫΏ/ ;
	print $_;
	}

#eof
