recursion - F# パワーセットを見つける

Question

パワーセットを見つけたい

パワーセット [1;2;3] = = [[]; [3]; [2]; [2; 3]; [1]; [1; 3]; [1; 2]; [1; 2; 3]]

let rec powerset = function
    | [] -> []
    | x::xs -> List.map (fun ys -> xs) xs::powerset (xs)

コードに問題があります。これが現在の出力のようです。

val it : int list list list = [[[2; 3]; [2; 3]]; [[3]]; []]