let rec parzyste(lista: 'a list) =
  match lista.Length with
  | 0 -> []
  | _ -> if(lista.Length % 2 = 0) then lista.Head::parzyste(lista.Tail)
                                  else parzyste(lista.Tail)

let lista = ["zero","jeden","dwa","trzy","cztery","piec"];
let wynikowa = parzyste(lista);

[<EntryPoint>]
printf "%A" wynikowa
0