Ошибка: Неполный структурированный конструктор в текущей точке или перед ней в выражении

let rec permutation length alphabet = 
    if length = 0 then Seq.Empty
    else for e in alphabet do yield
        e :: permutation (length - 1) (List.filter (fun k -> k <> e) alphabet))

let rec permutation length alphabet = 
    if length = 0 
    then Seq.empty
    else seq { for e in alphabet do 
                    yield e 
                    yield! permutation (length - 1) (List.filter ((<>) e) alphabet) }

let rec permutation length alphabet = 
    if length = 0 
    then seq { for i = 0 to 0 do yield List.Empty }
    else seq { for e in alphabet do
                    for lst in permutation (length - 1) <| List.filter ((<>) e) alphabet do
                        yield e :: lst }

let rec permutation length alphabet = 
    if length = 0 
    then seq [[]]
    else seq { for e in alphabet do
                    for lst in permutation (length - 1) <| List.filter ((<>) e) alphabet do
                        yield e :: lst }

let rec permutation length alphabet = 
    match length with
    | 0 -> seq [[]]
    | _ -> alphabet 
           |> Seq.collect (fun e -> 
                                List.filter ((<>) e) alphabet
                                |> permutation (length - 1) 
                                |> Seq.map (fun lst -> e :: lst))