let rec read_byte last =
  try
    let x = input_char stdin in
    if (last = x)
    then read_byte last
    else print_char x; read_byte x;
  with
  | End_of_file -> ();;

let () = read_byte '\x00';;