let clear c = c := [Item.create `Creation]