An experimental prolog project studying operant conditioning for intelligent agents