k(Y,X,Z):-repeat,grposn(Y,Y),
        A is Y, B is Y + 50,
        gregion(X,[[A,A],[B,A],[B,B],[A,B]],Z).
g:-repeat,grposn(100,100),
        gregion(7,[[50,50],[100,50],[100,100],[50,100]],cmp),fail.
g2(0).
g2(X):-grclear,grposn(100,100),
       gregion(X,[[50,50],[100,50],[100,100],[50,100]],cmp),
       X1 is X - 1,g2(X1).
c:-grclear.
r(0,A).
r(X,A) :- Y is 20 * (7 - X),Z is 8 - X,
          grposn(Y,Y),
          gregion(Z,[[0,0],[50,0],[50,50],[0,50]],A),
          X1 is X - 1,r(X1,A).
ron  :- gract,grclear,r(7,on).
rcmp :- gract,grclear,r(7,cmp).


                                                                                                                                                                                                                                                                                                                                                                                                                                                            