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