let
take_while t ~f = take_while_with_index t ~f:(
fun
_ c
->
f c)