: 1bi1@ ( obj p q quot -- objp objq ) [ curry ] curry bi@ bi ; ! maybe this is the same as yours, haven't checked. ! 14:42:36 5 2 4 [ + ] ... => 7 9 ! from yesterday's chat. ! 1 object, 2 (bi) to apply (@) to that object using 1 quot. ! hence: 1bi1@ .. a better name is much appreciated. : 1bi2* ( obj x y x-quot y-quot -- objx objy ) [ [ curry ] curry ] bi@ bi* bi ; ! 14:57:06 1 2 3 [ + ] [ - ] foo => 3 -2 ! takes 1 object 2 objects to apply using a spread (*) and ! 2 quots to match the applied objects. 1bi2*