let skip_while xs ~f = skip_whilei xs ~f:(const f)