var

f, g : Text;

n, m, i, p, q : longint;

procedure Zameni(var a, b : longint);

var

p : integer;

begin

p := a; a := b; b := p;

end;

procedure Obrni(var x : longint);

var

y : longint;

begin

y := 0;

while (x > 0) do

begin

y := y * 10 + (x mod 10);

x := x div 10;

end;

x := y;

end;

procedure Razdvoji(x : longint; var p, q : longint);

var

brCif : integer;

begin

p := 0; q := 0; brCif := 0;

while (x > 0) do

begin

brCif := brCif + 1;

if (brCif mod 2 = 0) then p := p*10 + (x mod 10)

else q := q*10 + (x mod 10);

x := x div 10;

end;

Obrni(p); Obrni(q);

if (brCif mod 2 = 0) then Zameni(p,q);

end;

begin

Assign(f,’razdvoji.in’); Reset(f);

Assign(g,’razdvoji.out’); Rewrite(g);

Read(f, n, m);

for i := n to m do

begin

Razdvoji(i,p,q); WriteLn(g,p,’ ‘,q);

end;

Close(f); Close(g);

end.