let rec eachindex = function
    | [x] -> seq { for i in 0..x-1 -> [i] }
    | x::xs ->
        eachindex xs
        |> Seq.map (fun xs -> seq {for i in 0..x-1 -> i::xs})
        |> Seq.concat