loading
main.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open System

let getInput () =
    printf "guess:>"
    Console.ReadLine ()

let output (s:string) 
    printfn "You typed: %s" s

let rec gameLoop() =
    let input = getInput ()
    output input
    gameLoop() 

[<EntryPoint>]
let main argv =
    gameLoop()
    0 // return an integer exit code