symbolToString [(List [Atom "quote", Atom val])] = return $ String val
symbolToString [(List [Atom "quote", Atom val])] = return $ String val
symbolToString [(List [Atom "quote", Atom val])] = return $ String val