let take_while t ~f = fst (split_while t ~f)