PROGRAM ORDTEST(INPUT,OUTPUT);
VAR I,J,A1,B1:INTEGER;
    A,B:ARRAY[1..3] OF INTEGER;
BEGIN
%RANGECHECKS OFF
READ(A1);
FOR I:=1 TO A1 DO
  BEGIN
  WRITE(I);
  A[I]:=I;
  END;
WRITELN;
%RANGECHECKS ON
READ(B1);
FOR J:=1 TO B1 DO
  BEGIN
  WRITE(J);
  B[J]:=J;
  END;
WRITELN;
END.