var
  i,t:Integer;
  Text,Str:String;
begin
  Text := 'this dont you think? dont you?';
  for i:=0 to 17 do
    Text := Text + Text;
  WriteLn('FromLength: '+ ToStr(ToStr(Length(Text))));


  t := GetTimeRunning;
  Str := Replace(Text, 'dont', 'donut', [rfReplaceAll]);
  WriteLn('Replace used: '+ ToStr(GetTimeRunning - t) +'ms');
  WriteLn(MD5(Str));
  Str := '';
end.