main = do
  let finalize p = do
        putStrLn ("finalize: " ++ show p)
        free p
  allocToForeignPtr finalize (mallocBytes 4096)
  forever performGC
main = do
  let finalize p = do
        putStrLn ("finalize: " ++ show p)
        free p
  allocToForeignPtr finalize (mallocBytes 4096)
  forever performGC
main = do
  let finalize p = do
        putStrLn ("finalize: " ++ show p)
        free p
  allocToForeignPtr finalize (mallocBytes 4096)
  forever performGC