program phone;

{$APPTYPE CONSOLE}
var x:array[1..10] of integer;
smax:integer;
function min(a,b:integer):integer;
begin
if a<b then min:=a else min:=b;
end;
procedure rozbyt(pos,max,number:integer);
var
 s:array[1..10] of intger;
 i:integer;
begin
  if number = 0 then
  begin

    for i:=1 to pos-1 do write(x[i],' ');
    writeln;
    for i:=1 to pos-1 do s[i]:=0;
    t1:=tel;
    for i:=1 to pos-1 do begin
    t:=copy(t1,1,x[i]);

    if (i=4)and(t[1]=t[3])then s[i]:=2;
    if (i=4)and(t[2]=t[4])then s[i]:=2;
    if (i=4)and(t[1]<>t[2])and(t[2]=t[3])and(t[3]=t[4])then s[i]:=3;
    if (i=4)and(t[1]=t[3])and(t[2]<>t[3])and(t[3]=t[4])then s[i]:=3;
    if (i=4)and(t[1]=t[2])and(t[2]=t[4])and(t[3]<>t[4])then s[i]:=3;
    if (i=4)and(t[1]=t[2])and(t[2]=t[3])and(t[3]<>t[4])then s[i]:=3;
    if (i=4)and(t[1]=t[2])and(t[3]=t[4])and(t[2]<>t[3])then s[i]:=3;
    if (i=4)and(t[1]=t[3])and(t[2]=t[4])and(t[1]<>t[2])then s[i]:=3;
    if (i=4)and(t[1]=t[3])and(t[2]=t[4])and(t[1]<>t[2])then s[i]:=4;
    if (i=4)and(t[1]=t[2])and(t[2]=t[3])and(t[3]=t[4])then s[i]:=5;

    if (i=3)and(t[1]=t[2]) then s[i]:=2;
    if (i=3)and (t[2]=t[3])then s[i]:=2;
    if (i=3)and (t[1]=t[3])then s[i]:=2;
    if (i=3)and(t[1]=t[2])and(t[2]=t[3])then s[i]:=3;


    if (i=2)and (t[1]=t[2])then s[i]:=2;
    delete(t1,1,x[i]);
    end;
   ss:=0
   for i:=1 to pos-1 do ss:=ss+s[i];
   if ss>smax then begin smax:=ss;

   rez:='';
   t:=tel;
         for i:=1 to pos-2 do begin
                 rez:=rez+copy(t,1,x[i]+'-';
                  delete(t,1,x[i]);
                 end;
   rez:=rez+copy(t,1,x[pos-1];

   writreln(rez);
   readln;
   end;




    end;

  end else
  for i:=number {min(number,max)} downto 2 {1} do
  begin
    x[pos] := i;
    rozbyt(pos+1,i,number-i);
  end;
end;

begin
smax:=0;
rozbyt(1,7,7);

readln;
end.