to crossproduct :these :those
output map.se [prepend.each :these ?] :those
end