SYNTAX: BEND[
    gensym dup
    dup "fork" associate 
    [ parse-quotation ] with-words
    dup infer define-declared suffix! ;


! : foo ( x -- x ) BEND[ 1 - dup 0 > [ dup fork + ] when ] ;

! IN: scratchpad 10 foo .
! 45