var
s:string;
i:integer;
begin
writeln ('Enter string');
readln(s);
s:='s'+s;
for i:=1 to length(s) do
if s[i]='t' then s[i]:='m';
writeln('New string',s);
readln
end.