program ideone;
{$mode delphi}
var
  s : string;
  t : string;
  i : integer;
begin
  SetLength(s, 65536*1024);
  t:='samrrr';
  for i:=1 to length(s) do
	s[i]:=t[((i-1) mod length(t))+1];
  writeln(length(s));
  writeln('"',Copy(s,1,32),'"');
end.