How to make an interactive program?

Question

I\'m learning Ocaml and I need to create a program that can interact with the user in the following way:

Program: \"Welcome!\"
User: command1 arg1 arg2
program:          


        

Answer 1

Here's a loop that will read lines of input until it reaches end of file, or sees a line that says "exit".

let rec loop () =
    match read_line () with
    | "exit" -> ()
    | s -> Printf.printf "I saw %s\n%!" s; loop ()
    | exception End_of_file -> ()

To call this loop in a source file, something like this will work:

let () = loop ()

To try it out in the toplevel (OCaml REPL):

# loop ();;