let gameLoop gamestate =
    let rec innerLoop prev gamestate =
        let now = getTicks()
        let delta = now - prev
        gamestate
        |> readInput delta
        |> update delta
        |> render delta
        |> innerLoop delta

    innerLoop 0L gamestate

let gameLoop gamestate =
    let rec innerLoop prev gamestate =
        let now = getTicks()
        let delta = now - prev
        let newState = gamestate
            |> readInput delta
            |> update delta
            |> render delta

        innerLoop now newState

    innerLoop 0L gamestate

let (|>) x f = f x

gamestate
    |> readInput delta
    |> update delta
    |> render delta
    |> innerLoop delta

|> (innerLoop delta) (|> (render delta) (|> (update delta) (|> (readInput delta) gamestate)))