
(*********************************************************************

        Adapted from
        Roman E. Maeder: Programming in Mathematica,
        Second Edition, Addison-Wesley, 1991.

 *********************************************************************)


Explode::usage = "Explode[expr] turns an expression into
	a list of characters that make up its name."

Intern::usage = "Intern[charlist] turns a list of characters into an expression."

Begin["`Private`"]

Explode[atom_] := Characters[ ToString[InputForm[atom]] ]

Intern[l:{_String..}] := ToExpression[ StringJoin @@ l ]

End[]

Protect[Explode, Intern]

Null
