Fixed a bug in ebb_flow:reduce_right/2; should use lists:duplicate/2.

src/ebb_flow.erl

@@ -193,9 +193,9 @@ reduce_right(FOp, LOp) ->
 	{0, _, _} -> throw(badarg);
 	{_, 1, 0} -> pipe(LOp, FOp);
 	{_, N, 0} -> reduce_left(
-		       FOp, pipe(LOp, par(lists:duplicate(N))));
+		       FOp, pipe(LOp, par(lists:duplicate(N, FOp))));
 	{_, N, M} -> reduce_left(
-		       FOp, pipe(LOp, par([id(M) | lists:duplicate(N)])))
+		       FOp, pipe(LOp, par([id(M) | lists:duplicate(N, FOp)])))
     end.
 
 map_reduce(Map, Red, List) ->