Name: read

Syntax:
(read str)

Description:
Returns the first atom of a string as a symbol.

Example(s):
(setq (read "MyApp") "Hello!")
!MyApp
"Hello!"