--- react-1.2.0.old/test/breakout.ml	2014-08-24 00:03:34.000000000 +0100
+++ react-1.2.0/test/breakout.ml	2017-11-17 15:04:10.473486674 +0000
@@ -136,9 +136,9 @@
   let time, send_time = E.create ()
   let key, send_key = E.create ()
   let gather () =                               (* updates primitive events. *)
-    let c = " " in
+    let c = Bytes.of_string " " in
     let i = Unix.stdin in
-    let input_char i = ignore (Unix.read i c 0 1); c.[0] in
+    let input_char i = ignore (Unix.read i c 0 1); Bytes.get c 0 in
     let dt = 0.1 in
     while true do
       if Unix.select [i] [] [] dt = ([i], [], []) then send_key (input_char i);