let drop_while xs ~f = drop_whilei xs ~f:(const f)