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