use io,sms,time;

function OdstranDiakritiku(text)
  znaky=['á': 'a','č': 'c','ď': 'd','é': 'e','ě': 'e','í': 'i','ň': 'n','ó': 'o','ř': 'r','š': 's','ť': 't','ú': 'u','ů': 'u','ý': 'y','ž': 'z'];
  navrat='';
  for i=0 to len(text)-1 do
    znak=substr(text,i,1);
    if znaky[znak] # null then
      znak=znaky[znak];
    elsif znaky[lower(znak)] # null then
      znak=upper(znaky[lower(znak)]);
    end;

    navrat=navrat+znak;
  end;

  return navrat;
end;

while true do
  id=sms.receive();
  try
    zprava=sms.get(id);
  catch e by
    print e;
  end;

  if lower(zprava['text']) = 'kdejsem' then
    f=io.open('KyblKdeJsem.txt',false,io.utf8);
    misto=OdstranDiakritiku(io.readln(f));
    io.close(f);

    sms.send(zprava['sender'],misto);
    print time.str(time.get(),'hh:mm:ss')+' odesláno "'+misto+'" na '+zprava['sender']+'.';
  end;
end;