checkCharRecognized :: Char -> Bool
checkCharRecognized char =  parse character "" ("\\" ++ [char]) == Right (EDNChar char)
checkCharRecognized :: Char -> Bool
checkCharRecognized char =  parse character "" ("\\" ++ [char]) == Right (EDNChar char)
checkCharRecognized char =  parse character "" ("\\" ++ [char]) == Right (EDNChar char)