:: [dual-op] ( word -- quot )
    word "derivative" word-prop :> derivative-list
    derivative-list length :> n
    n word '[ [ ordinary-part>> ] _ napply _ execute ] n
    derivative-list n
    '[
        _ _ nkeep 
        _ _ chain-rule
        <dual>
    ] ;