listBlockChar :: String -> String
listBlockChar ('\\':'x':xs) = [(hexDigitToChar xs)]
listBlockChar :: String -> String
listBlockChar ('\\':'x':xs) = [(hexDigitToChar xs)]
listBlockChar ('\\':'x':xs) = [(hexDigitToChar xs)]