let remove (hs:'a t) (x:'a) = hs#remove x