--createBothLives :: Float->([GameObject],[GameObject])
--createBothLives 3 = ([],[])
--createBothLives i = 


laserOrAsteroidOutOfBound :: [GameObject] -> [GameObject] 
laserOrAsteroidOutOfBound objects =  filter (\x ->not $ objectOutOfBound x) objects
laserOrAsteroidOutOfBound :: [GameObject] -> [GameObject]
laserOrAsteroidOutOfBound objects =  filter (\x ->not $ objectOutOfBound x) objects
laserOrAsteroidOutOfBound objects =  filter (\x ->not $ objectOutOfBound x) objects