wcwidth :: Char -> Int
wcwidth c | queryPoint v basicZero = 0
          | queryPoint v ctrlChars = -1
          | queryPoint v wIDEEASTASIAN = 2
          | queryPoint v zEROWIDTH = 0
          | otherwise = 1
  where v = ord c
wcwidth :: Char -> Int
wcwidth c | queryPoint v basicZero = 0
          | queryPoint v ctrlChars = -1
          | queryPoint v wIDEEASTASIAN = 2
          | queryPoint v zEROWIDTH = 0
          | otherwise = 1
  where v = ord c
wcwidth c | queryPoint v basicZero = 0
          | queryPoint v ctrlChars = -1
          | queryPoint v wIDEEASTASIAN = 2
          | queryPoint v zEROWIDTH = 0
          | otherwise = 1
  where v = ord c