let format tags =
      List.find_map tags (function `format f -> Some f | _ -> None)