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