next :: String -> IO (FunPtr a)
next symbol = do
  withCString symbol $ \ s -> do
      next_dlsym (-1) s
next :: String -> IO (FunPtr a)
next symbol = do
  withCString symbol $ \ s -> do
      next_dlsym (-1) s
next symbol = do
  withCString symbol $ \ s -> do
      next_dlsym (-1) s