PROGRAM  CRADIX  (INPUT,OUTPUT);
 TYPE DATE=ARRAY[ 0..100 ]OF INTEGER;
 VAR A,B: DATE;
     KETA,KAZU,KOSU,MAX,K,I,N,J,T: INTEGER;

{$I B:RADIX.SRC}

  BEGIN
   READLN(MAX);
   READLN (N);
   FOR I:=1 TO N DO
    READLN (A [ I ] );
     FOR I:=1 TO N DO
     WRITE (A [ I ] ,'  ');
     WRITELN;
     FOR KETA:=0 TO MAX-1 DO
    BEGIN
     T:=1;
       FOR KAZU:=0 TO 9 DO
       BEGIN
        FOR KOSU:=1 TO N DO
         BEGIN
          RADIX (A[ KOSU ],KETA);
        IF K=KAZU THEN BEGIN B[ T ]:=A[ KOSU ];
                  T:=T+1;
          END;
       END;
        END;
       WRITELN;
       FOR J:=1 TO N DO
       A[ J ]:=B[ J ];
     FOR J:=1 TO N DO
      WRITE (B [ J ] ,'   ');
    END;
      WRITELN;
   FOR I:=1 TO N DO
   WRITE (B [ I ] ,'  ')
 END.