• + 1 comment

    An F# solution

    open System
    
    [<EntryPoint>]
    let main args =
        let x = Console.ReadLine() |> int
        
        let numbers =
            Seq.initInfinite (fun _ -> Console.ReadLine())
            |> Seq.takeWhile (String.IsNullOrWhiteSpace >> not)
            |> Seq.filter (fun v -> v |> int < x)
            |> Seq.iter (printf "%s\n")
        
        0