let objectsToTake = 10

[1;2;3;4;5]
    |> List.toSeq
    |> fun x ->
        if objectsToTake>0 then x |> Seq.take objectsToTake
        else x |> fun y -> x