Aula 2

let rec ins v ll =
    match ll with
    | [] -> []
    | l::ls -> (v :: l) :: ins v ls

let rec power l =
    match l with
    | [] -> [[]]
    | x::xs -> ins x(power xs) @ power xs ;;

power [1;2;3] ;;