let is_entry node =
    match get_kind node with
      Entry _ -> true
    | _ -> false