aplicar_función(f,r)=aplicar_función(f,lista(r))
aplicar_función(f,{x1→y1,...,xm→ym})={f(x1,y1),...,f(xm,ym)}