program SoundexDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  StrUtils;

begin
  Writeln(Soundex('Soundex'));
  Writeln(Soundex('Example'));
  Writeln(Soundex('Sownteks'));
  Writeln(Soundex('Ekzampul'));
  Readln;
end.