answer(7, red, caught([predicate - atom_length / 2]), first, caught([])).
answer(7, red, caught([predicate - atom_length / 2]), second, caught([])).
flags(off, on, [pair(bounded, false), pair(integer_rounding_function, toward_zero), pair(char_conversion, on), pair(debug, off), pair(max_arity, unbounded), pair(unknown, fail), pair(double_quotes, chars), pair(occurs_check, true), pair(default_procedure_access, private)]).