2%%% The following code has been produced by the CHR compiler
    3
    4
    5:- ( current_module(chr) -> true ; use_module(library(chr)) ).    6
    7:- get_flag(variable_names, Val), setval(variable_names_flag, Val), set_flag(variable_names, off).