STR is the inverse of READ-STRING

[shawwn]

$ LUMEN_HOST=node bin/lumen
> (let (read-file (get (require 'system) 'read-file)
        s (read-file "compiler.l")
        forms (read-string (cat "(do " s ")"))
        s1 (str forms)
        s2 (str (read-string (str forms))))
    (= s1 s2))
true