let is_can = function
  | Can _ -> true
  | _ -> false