delInconsistent :: ([String],GameState)->(Int,Int,Int) -> GameState
delInconsistent (prev, gamestate) answer 
    = filter (\x -> response prev (Set.toList x) == answer) gamestate
delInconsistent :: ([String],GameState)->(Int,Int,Int) -> GameState
delInconsistent (prev, gamestate) answer 
    = filter (\x -> response prev (Set.toList x) == answer) gamestate
delInconsistent (prev, gamestate) answer 
    = filter (\x -> response prev (Set.toList x) == answer) gamestate