USING: combinators kernel quotations sequences ; : foo ( seq -- seq' ) [ dup callable? [ call( x -- y ) ] when ] map ;