TYPED: s+ ( v1: svec  v2: svec -- c: svec )
    {
        [ [ x>> ] bi@ + ]
        [ [ y>> ] bi@ + ]
        [ [ z>> ] bi@ + ]
        [ [ a>> ] bi@ + ]
        [ [ b>> ] bi@ + ]
        [ [ c>> ] bi@ + ]
    } 2cleave svec <struct-boa> ;