withCAStringLen str act  = withArray (charsToCChars str) $ act . pairLength str
withCAStringLen str act  = withArray (charsToCChars str) $ act . pairLength str
withCAStringLen str act  = withArray (charsToCChars str) $ act . pairLength str