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