let
remove l = (levels :=
Levels
.remove l !levels)