% Solution de la question 1 de l'examen FSAB1402 du 19 juin 2006

declare
fun {Prod1 X Ys F}
   case Ys of Y|Yr then
	  {F X Y}|{Prod1 X Yr F}
   [] nil then nil
   end
end

fun {Prod Xs Ys F}
   case Xs of X|Xr then
	  {Append {Prod1 X Ys F} {Prod Xr Ys F}}
   [] nil then nil
   end
end

{Browse {Prod [1 2 3] [10 100 1000] fun {$ X Y} X*Y end}}