let () = Bisect.Runtime.init "expr_polyrec.ml"
  
let rec (f : 'a. 'a -> unit) =
  fun _ ->
    (Bisect.Runtime.mark "expr_polyrec.ml" 1;
     f 0;
     Bisect.Runtime.mark "expr_polyrec.ml" 0;
     f "")
  
let () =
  (Bisect.Runtime.mark "expr_polyrec.ml" 5;
   let rec f : 'a. 'a -> unit =
     fun _ ->
       (Bisect.Runtime.mark "expr_polyrec.ml" 3;
        f 0;
        Bisect.Runtime.mark "expr_polyrec.ml" 2;
        f "")
   in (Bisect.Runtime.mark "expr_polyrec.ml" 4; f 0))
  

