Printing ascending ASCII, Cops
Perl, 46 characters (safe)

Output:

((()))*++,---../00011123445556667779::;;&lt;&lt;==??@@AAACEFGHHHIKKMMNOOOPPQQQRRSSSVWXXYY[[[\]]]^^^```aaeeffggghjjjnpppqqrttuwxxyzz{{{


Code:

print _______________________________________;


I somehow managed to delete the original in the space of a week, but I think this is right:


   print chr()x(($i=($i*41+7)%97)&amp;3)for(40..123);