I tried this approach, but when I re-open the Wolfram script file, it will look like this:
SetEqualQ//ClearAll;
SetEqualQ::usage="SetEqualQ[\!\(\*SubscriptBox[\(list\), \(1\)]\),\!\(\*SubscriptBox[\(list\), \(2\)]\)]
yields True if \!\(\*SubscriptBox[\(list\), \(1\)]\) is equal to \!\(\*SubscriptBox[\(list\), \(2\)]\), and False otherwise.";
SetEqualQ[l1_List,l2_List]:=SubsetQ[l1,l2] && SubsetQ[l2,l1];
As you can see, it is messy and difficult to read and understand.