if middle st then Printf.eprintf "middle: %S\n" s1;
if !log_k then log prune (s1^s2);
recomm tl @@ add hd @@ st
if middle st then Printf.eprintf "middle: %S\n" s1;
if !log_k then log prune (s1^s2);
recomm tl @@ add hd @@ st
if middle st then Printf.eprintf "middle: TITLE\n";
let b, ss1, ss2 = !c_line k_final false [] ss in
let ss2 =
if middle st then Printf.eprintf "middle: TITLE\n";
let b, ss1, ss2 = !c_line k_final false [] ss in
let ss2 =
let ss = List.rev_append ss1 ss2 in
let s = String.concat " " ss in
if !log_t then log blue s;
let ss = List.rev_append ss1 ss2 in
let s = String.concat " " ss in
if !log_t then log blue s;
if middle st then Printf.eprintf "middle: Section\n";
let b, ss1, ss2 = !s_line k_final false [] ss in
let ss2 =
if middle st then Printf.eprintf "middle: Section\n";
let b, ss1, ss2 = !s_line k_final false [] ss in
let ss2 =
let ss = List.rev_append ss1 ss2 in
let s = String.capitalize_ascii (String.concat " " ss) in
if !log_s then log sky s;
let ss = List.rev_append ss1 ss2 in
let s = String.capitalize_ascii (String.concat " " ss) in
if !log_s then log sky s;
| ET.Other (_, s, _) as hd :: tl ->
if !log_o && not (Array.mem s mute_o) then log black s;
recomm tl @@ add hd @@ st
| ET.Other (_, s, _) as hd :: tl ->
if !log_o && not (Array.mem s mute_o) then log black s;
recomm tl @@ add hd @@ st