let section_params =
    let default = 1 in
    let level n = 
      let nn = (try int_of_string n with e -> default) in
      if 1 <= nn && nn <= 4 then nn else default
    in
    function
    | [] -> (default, "")
    | [n] -> (level n, "")
    | n :: l :: q -> (level n, l)