Const
 S0:ARRAY[1..5] of STRING=('V1','V2','V3','V4','R');
Var
 i1,i2,i3,i4,i5,j :Integer;
 S:ARRAY[1..5] of STRING;
BEGIN
 j:=1;
 For i1:=1 to 5 do
  begin
   S[1]:=S0[i1];
   For i2:=1 to 5 do
    If S0[i2]<>S[1] then
     begin
      S[2]:=S0[i2];
      For i3:=1 to 5 do
       If (S0[i3]<>S[1]) and (S0[i3]<>S[2]) then
        begin
         S[3]:=S0[i3];
         For i4:=1 to 5 do
          If (S0[i4]<>S[1]) and (S0[i4]<>S[2]) and
             (S0[i4]<>S[3]) then
           begin
            S[4]:=S0[i4];
            For i5:=1 to 5 do
             If (S0[i5]<>S[1]) and (S0[i5]<>S[2]) and
                (S0[i5]<>S[3]) and (S0[i5]<>S[4]) then
              S[5]:=S0[i5];
            Write(S[1]+'-'+S[2]+'-'+S[3]+'-'+S[4]+'-'+S[5]+' ');
            Inc(j);
            If j=6 then
             begin
              j:=1;
              WriteLn;
             end;
           end;
        end;
     end;
  end;

 Readln;
END.