USING: kernel sequences ;
IN: trial

: wrap ( f: ( a b -- n ) -- f' ) [ first2 ] swap compose ;
: foo ( f: ( a b -- n ) -- n ) wrap { 1 2 } swap call ;