こんな関数ないのかなぁ

Arrowで書いていると、(&&&)で関数分岐させといて、あとで2引数の関数をuncurryするというのを僕はよくやるんですが、

-- こんなかんじ
pow_a = (id &&& id) >>> uncurry (*)

毎回uncurryするのめんどいということで、こんな感じの関数がないのかなぁと思っています。

x `**>>` y = x >>> uncurry y

ぱっとhoogleで検索したんですけどないみたい。