let parse s =
        try
          match Str.split rx s with
            [ f ; n ]  ->
              let n = int_of_string n in
              f, n
          | _ -> failwith ""
        with
       | Failure _ -> abort "Could not parse option \"-slevel-function %s\"" s