ctedFromName :: Char -> Bool
restrictedFromName c = c `elem` "\"\'`\\#.,@()[]{}⌜⌞⌟⌝"

restrictedFr
restrictedFromName :: Char -> Bool
restrictedFromName c = c `elem` "\"\'`\\#.,@()[]{}⌜⌞⌟⌝"
restrictedFromName c = c `elem` "\"\'`\\#.,@()[]{}⌜⌞⌟⌝"