let is = function Cl _, _ -> true | _ -> false