USING: kernel ;
IN: examples.sequences

: find-first ( seq p -- x )
    SYMBOL: p
    p set
    
    f [ p ] reduce ;