Cartesian product with keys (cross join) in PowerShell

CartesianProduct.ps1

function CartesianProduct {
    param
    (
        [Parameter(Mandatory = $true, ValueFromPipeline = $true)]
        [Hashtable]
        $values = @{ Foo = 1..5; Bar = 1..10}
    )
    $keys = @($values.GetEnumerator() | ForEach-Object { $_.Name })
    $result = @($values[$keys[0]] | ForEach-Object { @{ $keys[0] = $_ } })
    if ($keys.Length -gt 1) {
        foreach ($key in $keys[1..($keys.Length - 1)]) {
            $result = foreach ($entry in $result) {
                foreach ($value in $values[$key]) {
                    $entry + @{ $key = $value }
                }
            }
        }
    }
    $result
}

foreach ($entry in CartesianProduct @{ Foo = 0..3; Bar = ("a", "b") }) {
  Write-Host "Foo = $($entry.Foo) Bar = $($entry.Bar)"
}

<#
Foo = 0 Bar = a
Foo = 1 Bar = a
Foo = 2 Bar = a
Foo = 3 Bar = a
Foo = 0 Bar = b
Foo = 1 Bar = b
Foo = 2 Bar = b
Foo = 3 Bar = b
#>