diff --git a/ocaml/main.ml b/ocaml/main.ml
new file mode 100644
index 0000000..69c9b71
--- /dev/null
+++ b/ocaml/main.ml
@@ -0,0 +1,12 @@
+let evaluate str =
+  str;;
+
+try
+  while true do
+    print_string "> ";
+    let line = read_line () in
+    let answer = evaluate line in
+    print_endline answer
+  done;
+with
+  End_of_file -> print_endline "Bye!";;