diff --git a/main.ml b/main.ml
index c46112c..cb1a803 100644
--- a/main.ml
+++ b/main.ml
@@ -24,9 +24,7 @@ let readline () = match file with
   | None -> (
         Printf.printf ">>> ";
         flush stdout;
-        let line = ref "" in
-        Scanf.scanf "%s" (fun s -> line := s);
-        !line
+        read_line ()
     )
   | Some f -> input_line f
 in