byte choosing[4];
byte number[4];


active proctype P_0() { 
byte j=0;
byte max=0;
byte cs=0, ch=0;

NCS: cs=0;
if
::  d_step {choosing[0] = 1;j = 0;max = 0;}  goto choose; 

fi;
choose: ch=1;
if
::  d_step {j<4 && number[j]>max;max = number[j];j = j+1;}  goto choose; 

::  d_step {j<4 && number[j]<=max;j = j+1;}  goto choose; 

::  d_step {j==4 && max<5;number[0] = max+1;j = 0;choosing[0] = 0;}  goto for_loop; 

fi;
for_loop: ch=1;
if
:: j<4 && choosing[j]==0; goto wait; 

:: j==4; goto CS; 

fi;
wait: ch=1;
if
::  d_step {number[j]==0 || (number[j]<number[0]) || (number[j]==number[0] && 0<=j);j = j+1;}  goto for_loop; 

fi;
CS: cs=1; ch=0;

if
:: number[0] = 0; goto NCS; 

fi;
}

active proctype P_1() { 
byte j=0;
byte max=0;

NCS: if
::  d_step {choosing[1] = 1;j = 0;max = 0;}  goto choose; 

fi;
choose: if
::  d_step {j<4 && number[j]>max;max = number[j];j = j+1;}  goto choose; 

::  d_step {j<4 && number[j]<=max;j = j+1;}  goto choose; 

::  d_step {j==4 && max<5;number[1] = max+1;j = 0;choosing[1] = 0;}  goto for_loop; 

fi;
for_loop: if
:: j<4 && choosing[j]==0; goto wait; 

:: j==4; goto CS; 

fi;
wait: if
::  d_step {number[j]==0 || (number[j]<number[1]) || (number[j]==number[1] && 1<=j);j = j+1;}  goto for_loop; 

fi;
CS: if
:: number[1] = 0; goto NCS; 

fi;
}

active proctype P_2() { 
byte j=0;
byte max=0;

NCS: if
::  d_step {choosing[2] = 1;j = 0;max = 0;}  goto choose; 

fi;
choose: if
::  d_step {j<4 && number[j]>max;max = number[j];j = j+1;}  goto choose; 

::  d_step {j<4 && number[j]<=max;j = j+1;}  goto choose; 

::  d_step {j==4 && max<5;number[2] = max+1;j = 0;choosing[2] = 0;}  goto for_loop; 

fi;
for_loop: if
:: j<4 && choosing[j]==0; goto wait; 

:: j==4; goto CS; 

fi;
wait: if
::  d_step {number[j]==0 || (number[j]<number[2]) || (number[j]==number[2] && 2<=j);j = j+1;}  goto for_loop; 

fi;
CS: if
:: number[2] = 0; goto NCS; 

fi;
}

active proctype P_3() { 
byte j=0;
byte max=0;

NCS: if
::  d_step {choosing[3] = 1;j = 0;max = 0;}  goto choose; 

fi;
choose: if
::  d_step {j<4 && number[j]>max;max = number[j];j = j+1;}  goto choose; 

::  d_step {j<4 && number[j]<=max;j = j+1;}  goto choose; 

::  d_step {j==4 && max<5;number[3] = max+1;j = 0;choosing[3] = 0;}  goto for_loop; 

fi;
for_loop: if
:: j<4 && choosing[j]==0; goto wait; 

:: j==4; goto CS; 

fi;
wait: if
::  d_step {number[j]==0 || (number[j]<number[3]) || (number[j]==number[3] && 3<=j);j = j+1;}  goto for_loop; 

fi;
CS: if
:: number[3] = 0; goto NCS; 

fi;
}