let minus (lhs : 'e hashset) (rhs : 'e hashset) : 'e hashset =
    let newset = copy lhs in
      iter (remove newset) rhs;
      newset