PromptReadPrintLoop.fs

open System
open System.Text.RegularExpressions

exception QuitProgram

(*  // defining this function causes the initial "> " to not be displayed first
let ProcessInput =
  let input = System.Console.ReadLine()
  try 
    let f = System.Single.Parse(input)
    sprintf "%f" f
  with _ -> input
*)

[<EntryPoint>]
let main argv =       // printfn "%A" argv
  try
    while true do
      System.Console.Write("> ")
      let input = System.Console.ReadLine()
      if Regex.Match(input, "^\s*q(uit)?|(exit)\s*$").Success then raise QuitProgram
      System.Console.WriteLine(input)
    0
  with _ -> 0 // return an integer exit code