(take-while number? (fiber/new |(each x [1 2 3 :hi] (yield x)))) # => @[1 2 3]