open System

​

let getUser()=

    printfn "What is your name?"

    let noob = Console.ReadLine().Trim()

    printfn "Take a seat, %s, and let's start coding a real life problem" noob

    noob

​

// call the function with a empty list to start with

let getList () =

    let rec createList currentList =

        printfn "enter a student name or 'Enter/Return' to end input"

        printfn "Don't forget to add your name, too :)"

        match System.Console.ReadLine().Trim() with

        | "" -> currentList // we are finished, return the list

        | name -> 

            // call ourselves recursively, appending the new name to 

            // the list

            createList (name :: currentList)

    createList []

​

let getList2 () =

  (fun _ -> 

    System.Console.Write "Non-recursive, Enter name or 'Enter/Return' to end input: "

    System.Console.ReadLine())

  |> Seq.initInfinite

  |> Seq.takeWhile ((<>) "")

  |> Seq.toList

​

let final_leg user =            

    let names = getList2()

    printfn "%A" names

    //let lastName = List.head names

    let nStudents = List.length names

    printfn "Welcome to our coding class of %d students, %s :) " names.Length user

​

[<EntryPoint>]

let main argv = 

    let user = getUser()

    final_leg user

    0 // return an integer exit code