fn read_cstring<R>(reader: R) -> Result<CString> where
    R: Read