heatUpBoosters (ControllerMock controller) _ _ = do
    ControllerImpl _ st n ts <- readIORef controller
    writeIORef controller $ ControllerImpl "" st (n + 1) (drop 1 ts)
heatUpBoosters (ControllerMock controller) _ _ = do
    ControllerImpl _ st n ts <- readIORef controller
    writeIORef controller $ ControllerImpl "" st (n + 1) (drop 1 ts)
heatUpBoosters (ControllerMock controller) _ _ = do
    ControllerImpl _ st n ts <- readIORef controller
    writeIORef controller $ ControllerImpl "" st (n + 1) (drop 1 ts)