: find-pair ( seq target -- pair )
    '[ first2 + _ = ] find nip ;

: find-indices ( seq pair -- pair )
    [ '[ _ index ] map ] when* ;

: two-sum ( target seq -- pair )
    [ 2 <combinations> swap find-pair ] keep find-indices ;