cut and fail predicate in prolog