Example:
		?- maplist(mult,[1,2,4],[3,2,3],R).
		R = [3,4,12].
		?- prodv([1,2,4],[3,2,3],R).
	 	R = [3,4,12].
		

		/* for maplist e need to define prod */
		mult(X,Y,R):- R is X * Y.

		prodv([X],[Y],[R]):- R is X * Y.
		prodv([H|T],[H1|T1],[R|R1]):- prodv(T,T1,R1),R is H * H1.