in clause color_region/oi(region(Name,Color,Neighbors),Colors) :- select/oio(Color,Colors,Colors1), members/oi(Neighbors,Colors1). variables have no producer: ["Name"]
real 0m0.485s user 0m0.248s sys 0m0.052s