encChar c
  | 'A' <= c && c <= 'Z' = fromIntegral $ ord c - ord 'A' + 10
encChar c
  | 'A' <= c && c <= 'Z' = fromIntegral $ ord c - ord 'A' + 10
encChar c
  | 'A' <= c && c <= 'Z' = fromIntegral $ ord c - ord 'A' + 10