yes.ml

open Core

let () =
  let unit_str = "y\n" and unit_str_len = 2 in
  let buf = Buffer.create 0 in
  let rec print_endlessly () =
    Out_channel.output_buffer stdout buf;
    print_endlessly ()
  in
  let rec grow_buf () =
    if Buffer.length buf + unit_str_len < 8192 then
      begin
        Buffer.add_string buf unit_str;
        grow_buf ()
      end
  in
  begin
    grow_buf ();
    print_endlessly ();
  end