R言語／統計環境に関する質問です。

任意の長さのベクトル，たとえばc(1,2,3)について
myfunc(c(1,2,3))
を
origfunc(1, origfunc(2, 3))
あるいは
origfunc(origfunc(1, 2), 3)
に展開してくれる関数の書き方をおしえてください。
実際は，
intersect(a, intersect(b, c))
を
intersect2(c(a, b, c))
と書きたいというのがこの質問の動機です