procedure morse(d: char);
begin
   case d of
     '1' : write('.____');
     '2' : write('..___');
     '3' : write('...__');
     '4' : write('...._');
     '5' : write('.....');
     '6' : write('_....');
     '7' : write('__...');
     '8' : write('___..');
     '9' : write('____.');
     '0' : write('_____');
   end;
end;