encChar c
  | 'a' <= c && c <= 'z' = fromIntegral $ ord c - ord 'a' + 36
encChar c
  | 'a' <= c && c <= 'z' = fromIntegral $ ord c - ord 'a' + 36
encChar c
  | 'a' <= c && c <= 'z' = fromIntegral $ ord c - ord 'a' + 36