open CS334

let rec repl() : unit =
    printf "Enter an expression: "
    let input = System.Console.ReadLine()
    if input = "quit" then
        printfn "Goodbye!"
        exit 0
    else
        let asto = parse input
        match asto with
        | Some ast -> printfn "%A" ast
        | None -> ()
    repl()

[<EntryPoint>]
let main args =
    repl()
    0