src/polar/kernel/core/mul.js

export default ( mul , add ) => ( a , b , c , d )  => [ mul( a , c ) , add( b , d ) ] ;