begin
   comment 'LIBRARY' 1;
   integer
     I;
   integer array
     C[1 : 3];
   for I ≔ 1,
     2,
     3 do
        C[I] ≔ I + 1;
   for I ≔ 1,
     2,
     3 do
        if C[C[C[C[C[C[I]- 1]- 1]- 1]- 1]- 1]≠ I + 1
        then
        OUTREAL(99, I);
   OUTREAL(99, 0)
end