open System
let objectsToTake = 0
let u = [1;2;3;4;5]
|> List.toSeq
|> fun x ->
if objectsToTake > 0 then x |> Seq.take objectsToTake
else x |> fun y -> x
for i in u do Console.WriteLine(i)
b3BlbiBTeXN0ZW0KCmxldCBvYmplY3RzVG9UYWtlID0gMAoKbGV0IHUgPSBbMTsyOzM7NDs1XQogICAgICAgIHw+IExpc3QudG9TZXEKICAgICAgICB8PiBmdW4geCAtPgogICAgICAgIGlmIG9iamVjdHNUb1Rha2UgPiAwIHRoZW4geCB8PiBTZXEudGFrZSBvYmplY3RzVG9UYWtlCiAgICAgICAgZWxzZSB4IHw+IGZ1biB5IC0+IHgKCmZvciBpIGluIHUgZG8gQ29uc29sZS5Xcml0ZUxpbmUoaSk=