#!/usr/bin/perl

my $line;

while ($line=<>)
{
 $line =~ s/[áÁAa]/.- /g;
 $line =~ s/[âÂBb]/-... /g;
 $line =~ s/[÷×Ww]/.-- /g;
 $line =~ s/[çÇGg]/--. /g;
 $line =~ s/[äÄDd]/-.. /g;
 $line =~ s/[åÅEe]/. /g;
 $line =~ s/[öÖVv]/...- /g;
 $line =~ s/[úÚZz]/--.. /g;
 $line =~ s/[éÉIi]/.. /g;
 $line =~ s/[êÊJj]/.--- /g;
 $line =~ s/[ëËKk]/-.- /g;
 $line =~ s/[ìÌLl]/.-.. /g;
 $line =~ s/[íÍMm]/-- /g;
 $line =~ s/[îÎNn]/-. /g;
 $line =~ s/[ïÏOo]/--- /g;
 $line =~ s/[ðÐPp]/.--. /g;
 $line =~ s/[òÒRr]/.-. /g;
 $line =~ s/[óÓSs]/... /g;
 $line =~ s/[ôÔTt]/- /g;
 $line =~ s/[õÕUu]/..- /g;
 $line =~ s/[æÆFf]/..-. /g;
 $line =~ s/[èÈHh]/.... /g;
 $line =~ s/[ãÃCc]/-.-. /g;
 $line =~ s/[þÞ]/---. /g;
 $line =~ s/[ûÛ]/---- /g;
 $line =~ s/[ýÝQq]/--.- /g;
 $line =~ s/[ÿß\']/.----. /g;
 $line =~ s/[ùÙYy]/-.-- /g;
 $line =~ s/[øØXx]/-..- /g;
 $line =~ s/[üÜ]/..-.. /g;
 $line =~ s/[àÀ]/..-- /g;
 $line =~ s/[ñÑ]/.-.- /g;

 $line =~ s/0/----- /g;
 $line =~ s/1/.---- /g;
 $line =~ s/2/..--- /g;
 $line =~ s/3/...-- /g;
 $line =~ s/4/....- /g;
 $line =~ s/5/..... /g;
 $line =~ s/6/-.... /g;
 $line =~ s/7/--... /g;
 $line =~ s/8/---.. /g;
 $line =~ s/9/----. /g;

 $line =~ s/ +$//g;
 $line =~ s/  +/\|/g;
 print $line;
}