<pre class="brush:xquery">
let $zip-sum := function($f, $seq1, $seq2) {
sum(mapfor-pairseach-pair($fseq1, $seq1seq2, $seq2f)) }let $sum-all := $zip-sum(function($a, $b) { $a + $b }, ?, ?), let $sum-left := $zip-sum(hof:const#2, ?, ?)
return (
$sum-all((1, 1, 1, 1, 1), 1 to 5),