+\begin{code}
+#ifdef __HUGS__
+foreign import stdcall "libHS_cbits.so" "createDirectory" primCreateDirectory :: CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "removeDirectory" primRemoveDirectory :: CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "removeFile" primRemoveFile :: CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "renameDirectory" primRenameDirectory :: CString -> CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "renameFile" primRenameFile :: CString -> CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "openDir__" primOpenDir :: CString -> IO Addr
+foreign import stdcall "libHS_cbits.so" "readDir__" primReadDir :: Addr -> IO Addr
+foreign import stdcall "libHS_cbits.so" "get_dirent_d_name" primGetDirentDName :: Addr -> IO Addr
+foreign import stdcall "libHS_cbits.so" "setCurrentDirectory" primSetCurrentDirectory :: CString -> IO Int
+foreign import stdcall "libHS_cbits.so" "getCurrentDirectory" primGetCurrentDirectory :: IO Addr
+foreign import stdcall "libc.so.6" "free" primFree :: Addr -> IO ()
+foreign import stdcall "libc.so.6" "malloc" primMalloc :: Word -> IO Addr
+foreign import stdcall "libc.so.6" "chmod" primChmod :: CString -> Word -> IO Int
+#endif
+\end{code}