haskell - リアクティブ バナナ ゲームの一般的な構造はどのようになりますか?

Question

反復ごとにロジックを実行し、命令型言語で毎秒 60 回画面に描画する単純なゲームは、次のようになります。

function main() {
    player = new Player()
    lastUpdateTime, lastDrawTime = getTime()
    while (!quit) {
        deltaTime = getTime() - lastUpdateTime
        player.update(deltaTime)
        if (getTime() - lastDrawTime > 1/60) {
            player.draw()
            lastDrawTime = getTime()
        }
        lastUpdateTime = getTime()
    }
    delete player
}

それがどのようにリアクティブバナナに変換されるのかわかりません。