Spell with Chemical Elements

More Details

Every chemical element in the periodic table has a unique symbol consisting of one to three letters. For instance, the symbols for oxygen and helium are O and He. A puzzle some chemistry students try is to spell a common word using the symbols from the periodic table.

For example, you can spell the word phone with the symbols P, H, O and Ne, which are the symbols for phosphorus, hydrogen, oxygen and neon, respectively.

The chemical elements can be found in the Wolfram Language by calling the function (HyperlinkTemplate["ElementData", paclet:ref/ElementData, paclet:ref/ElementData, Link, HyperlinkActive, ]).

What Your Function Should Do

Create a function called SpellWithElements that takes a string as input. The output of your function should be a list of lists containing all possible spellings of the string using chemical element abbreviations. These lists should be arranged in sorted order using the Wolfram Language (HyperlinkTemplate["Sort", paclet:ref/Sort, paclet:ref/Sort, Link, HyperlinkActive, ]) function.

SpellWithElements["accessibilities"]

More Examples

SpellWithElements["sarcasm"]

SpellWithElements["police"]

SpellWithElements["Zoo"]

SpellWithElements[s_String]:=