start :: Start
start _entityID = do
    forM_ [1..20::Int] $ \_ -> do
        color <- liftIO $ randomRIO (0,1)
        traverseM_ (spawnEntity "MessyBall") $ 
            setEntityColor (color & _w .~ 1)
        traverseM_ (spawnEntity "SoundCube") $ 
            setEntityColor (color & _w .~ 1)
    return Nothing
start :: Start
start _entityID = do
    forM_ [1..20::Int] $ \_ -> do
        color <- liftIO $ randomRIO (0,1)
        traverseM_ (spawnEntity "MessyBall") $ 
            setEntityColor (color & _w .~ 1)
        traverseM_ (spawnEntity "SoundCube") $ 
            setEntityColor (color & _w .~ 1)
    return Nothing
start _entityID = do
    forM_ [1..20::Int] $ \_ -> do
        color <- liftIO $ randomRIO (0,1)
        traverseM_ (spawnEntity "MessyBall") $ 
            setEntityColor (color & _w .~ 1)
        traverseM_ (spawnEntity "SoundCube") $ 
            setEntityColor (color & _w .~ 1)
    return Nothing