: reduce-plus ( obj items-seq quot: ( obj item -- obj ) -- obj )
    over empty? [ 2drop ] 
                [ 
    [ [ first ] [ rest ] bi ] dip swap [ [ call ] keep ] dip swap reduce-plus 
                ] if ; inline

! the word gives me an inference error: literal value expected. why is that?
! (but it works)