let cl_of s = s.cl