#!/usr/local/bin/perl

select(STDOUT); $| =1;        # make STDOUT and STDIN unbuffered
select(STDIN);  $| =1;

%dict = qw{
ela she
é is
uma a
simpatica nice
rapariga girl
gato cat
eu I
sou am
};

while (<>){ chop ;
    if(defined($dict{$_})){ print STDOUT "$dict{$_}\n";}
    else                  { print STDOUT "?\n";} }