let active = function `Active _ -> true | _ -> false