let root p = incr roots ; Root( !roots , p )