let with_self_ids ?self_ids l =     match self_ids with     | Some tags -> `Self_identification tags :: l     | None -> l