4 (* just a class that behave as fun x -> x *)
5 class ['a
] oassoc_id xs
=
10 method add
(k
,v
) = {< >}
11 method iter f
= raise Todo
12 method view
= raise Todo
14 method del
(k
,v
) = {< >}
15 method mem e
= raise Todo
16 method null
= raise Todo
19 method delkey k
= {< >}
22 List.map fst
(o#tolist
)