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.