[F# Read Input List]

main.fs

open System

let read _ = Console.ReadLine()
let isValid = function null -> false | _ -> true
    
let readList t = 
    Seq.initInfinite read
    |> Seq.takeWhile isValid
    |> Seq.toList
    |> List.map t