cleanup :: MegaHal -> IO ()
cleanup (MegaHal cxt xs) = do
    -- Cleanup MegaHal
    m_cleanup cxt

    -- Dealloc the CStrings
    mapM_ free xs
cleanup :: MegaHal -> IO ()
cleanup (MegaHal cxt xs) = do
    -- Cleanup MegaHal
    m_cleanup cxt

    -- Dealloc the CStrings
    mapM_ free xs
cleanup (MegaHal cxt xs) = do
    -- Cleanup MegaHal
    m_cleanup cxt

    -- Dealloc the CStrings
    mapM_ free xs