F# Stuff

// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.
open System
let rand = System.Random()

[<EntryPoint>]
let main argv =
    Console.Write("What's your name? ")
    let name = Console.ReadLine()
    Console.Write("Hello, {0}. What seems to be the trouble? ", name)
    let theTrouble = Console.ReadLine()
    let checker = theTrouble.ToLower()
    if checker.Equals("goodbye") ||  checker.Equals("quit") then
        Console.Write("Goodbye, {0}. See you next week. ", name)
    else
        let response = actualResponses name checker
        Console.Write("\n")

    0

let actualResponses (name:string) (response:string) =
    let r = rand.Next(1, 101)
    if (r >= 50) then
        let reply = prefix name response
        Console.Write("\n")
    else
        let reply = avoid name response
        Console.Write("\n")

    0


let prefix (name:string) (response:string) =
    let mutable ender = response.Replace("me", "you")
    ender <- response.Replace("i", "you")
    ender <- response.Replace("am", "are")
    ender <- response.Replace("my", "your")

    let r = rand.Next(3)
    if (r = 0) then
        Console.Write("You seem to think that {0}.", ender)
    elif (r = 1) then
        Console.Write("You feel that {0}?", ender)
    else
        Console.Write("Why do you believe that {0}?", ender)

    Console.Write("\n")
    0