let check =
  let regexp_layer_9 =
    Re.compile Re.(str "Layer9") in
  fun text -> match Re.exec_partial regexp_layer_9 text with
    \`Mismatch -> raise (Invalid_argument "does not use Layer9") | _ -> text
  [@@deprecated " Naive implementation of ocamldep "]