Source

opycaml / tests / from_string_iteration.ml

Full commit
open Opycaml.Api

let f n = 
  let o = Py.String.fromString "hello world" in
  if n mod 1000 = 0 then Base.debug o "o";
  if n mod 10000 = 0 then Gc.print_stat stderr
;;

let _ = 
  for i = 0 to 1000000 do
    f i
  done