: remove-after-underscore ( seq -- seq' )
    "_" split1 drop ;