```// ************************************************************************** //
//                                                                            //
//    eses                   eses                                             //
//   eses                     eses                                            //
//  eses    eseses  esesese    eses   Embedded Systems Group                  //
//  ese    ese  ese ese         ese                                           //
//  ese    eseseses eseseses    ese   Department of Computer Science          //
//  eses   eses          ese   eses                                           //
//   eses   eseses  eseseses  eses    University of Kaiserslautern            //
//    eses                   eses                                             //
//                                                                            //
// ************************************************************************** //

package latex.QuartzLRM.Experiments.Arithmetic;
import examples.Algorithms.Arithmetic.SignedDigit.*;

macro D = 3;     // digit set is -D,...,-1,0,1,...,D
macro B = 5;     // base of the radix numbers
macro N = 4;     // number of digits used for the addition

module TestSgnCmp([N]int{D+1} ?x,?y,bool eqq,les) {
loop {
pause;
SgnCmp(x,y,eqq,les);
}
}
drivenby {
[N+N]bool skip;
do {
skip[0] = x[0]==D;
skip[1] = x[1]==D & skip[0];
skip[2] = x[2]==D & skip[1];
skip[3] = x[3]==D & skip[2];
skip[4] = y[0]==D & skip[3];
skip[5] = y[1]==D & skip[4];
skip[6] = y[2]==D & skip[5];
skip[7] = y[3]==D & skip[6];
next(x[0]) = (x[0]+1) % (D+1);
next(x[1]) = (skip[0] ? (x[1]+1) % (D+1) : x[1]);
next(x[2]) = (skip[1] ? (x[2]+1) % (D+1) : x[2]);
next(x[3]) = (skip[2] ? (x[3]+1) % (D+1) : x[3]);
next(y[0]) = (skip[3] ? (y[0]+1) % (D+1) : y[0]);
next(y[1]) = (skip[4] ? (y[1]+1) % (D+1) : y[1]);
next(y[2]) = (skip[5] ? (y[2]+1) % (D+1) : y[2]);
next(y[3]) = (skip[6] ? (y[3]+1) % (D+1) : y[3]);
pause;
} while(!(forall(i=0..N-1) (x[i]==D) & forall(j=0..N-1) (y[j]==D)));
}
```