(*$S-*)
(*$R-*)
(*$T-*)

MODULE e;

FROM InOut IMPORT WriteLn, WriteInt, WriteCard, WriteString;

CONST
   DIGITS = 200;

VAR
    high, n, x : CARDINAL;
    a : ARRAY [ 0..DIGITS ] OF CARDINAL;

BEGIN
    high := DIGITS;
    x := 0;

    n := high - 1;
    WHILE n > 0 DO
        a[ n ] := 1;
        n := n - 1;
    END;

    a[ 1 ] := 2;
    a[ 0 ] := 0;

    WHILE high > 9 DO
        high := high - 1;
        n := high;
        WHILE 0 <> n DO
            a[ n ] := x MOD n;
            x := 10 * a[ n - 1 ] + x DIV n;
            n := n - 1;
        END;
        IF x >= 10 THEN WriteCard( x, 2 ) ELSE WriteCard( x, 1 ); END;

    END;

    WriteLn;
    WriteString( "done" );
    WriteLn;
END e.