Select Code to Download

sub zipwith ( Code $with, *@lists ) {
  gather {
...
    }
  }
}

zipwith( { $^a[ $^i ] }, @loop, @pos );