function zip3 ($a1, $a2, $a3)
{
    while ($a1)
    {
        $x, $a1 = $a1
        $y, $a2 = $a2
        $z, $a3 = $a3
        [Tuple]::Create($x, $y, $z)
    }
}