let get = function 
    | Cl(op), _ -> op
    | _ -> raise Not_found