let disable s =
    debugged := List.filter !debugged ((<>) s)