let basename x = Ctypes.basename x