My Mathematica initialization file

(** User Mathematica initialization file **)

(** Make the Locked attribute unusable (I don't allow crap like this.) **)
Unprotect[Locked]
Locked::usage = "Locked is an attribute which, once assigned, prevents modification of any attributes of a symbol. Good luck assigning it in the first place though!\nNice try, Wolfram, but I keep a copy of Mathematica 8 for a reason. ;-)"
Locked = Sequence[]
(** But wait a minute, couldn't a package just do ClearAll[Locked]? **)
(** Well, I guess this attribute still has one good use... **)
Block[{Locked}, Attributes[Locked] = {Protected, Locked}]
(** ...and Wolfram is HoistByHisOwnPetard. **)