runApp :: String -> UserApp a -> IO ()
runApp title userData = initializeApp title userData >>= startWithMVar
runApp :: String -> UserApp a -> IO ()
runApp title userData = initializeApp title userData >>= startWithMVar
runApp title userData = initializeApp title userData >>= startWithMVar