Untitled

let make_delayed_printer print_function =
  let temporary = ref None in
  let delayed_match value = match !temporary with
     | None -> Some value
     | Some stored -> print_function stored; Some value in
  let delayed_printer value =
    temporary := (delayed_match value) in
  delayed_printer

let print_one_entry (count, w_current) =
  Printf.printf "at At iter: %d current weights are: " count;
  List.iter (Printf.printf "%f ") w_current;
  Printf.printf "\n"

let print_it_delayed =
  make_delayed_printer print_one_entry