let listLen lst =
    let rec listLenHelper lst count =
        if List.isEmpty lst then
            count
        else
            listLenHelper (List.tail lst) (count + 1)
    listLenHelper lst 0

let zz = ['1';'2';'3';'5']

let yz = listLen zz

printfn "Len: %d" yz