Added an elegant version of the change_machine.clp as an expert system