(take-while pred) (take-while pred coll)
Ends the reduction of coll when (pred val) returns logical false.