: compose ( xt1 xt2 -- xt3 )
>r >r :noname
r> compile,
postpone ;
;
' 2* ' 1+ compose ( xt )
3 swap execute . \ 7