let _ = Bisect.Runtime.init "source.ml"
let f1 x y = if x = y then x + y else x - y
let g s =
  Bisect.Runtime.mark "source.ml" 1;
  for i = 1 to 5 do (Bisect.Runtime.mark "source.ml" 0; print_endline s) done
let f2 b x = if b then x * x else x
