let take_while xs ~f = take_whilei xs ~f:(const f)