escGraphName :: String -> String
    escGraphName name = concatMap escChar name
        where
            escChar c | isAlphaNum c = [c]
            escChar _ = "_" -- X" ++ show (toEnum c :: Int)
escGraphName :: String -> String
escGraphName name = concatMap escChar name
        where
            escChar c | isAlphaNum c = [c]
            escChar _ = "_" -- X" ++ show (toEnum c :: Int)
escGraphName name = concatMap escChar name
        where
            escChar c | isAlphaNum c = [c]
            escChar _ = "_" -- X" ++ show (toEnum c :: Int)