newCWString :: String -> IO CWString
newCWString  = newArray0 wNUL . charsToCWchars
newCWString :: String -> IO CWString
newCWString  = newArray0 wNUL . charsToCWchars
newCWString  = newArray0 wNUL . charsToCWchars