let rnd = System.Random()
[1..1000]
|> Seq.map (fun i -> rnd.Next(0,1001),rnd.Next(0,1001))
|> Seq.map (fun (a,b) -> sprintf "%i %i" a b)
|> String.concat "\n"
|> printfn "%s"