F#: пример использования рекурсии

(*пример использования рекурсии 
для построения функции подсчета элементов в списке*)

let rec cnt xs acc = match xs with
    | [] -> acc
    | h :: t -> cnt t acc + 1

let count xs = cnt xs 0

let args = [1;2;3;4;5;6]

assert (args.Length = count args)