program Z3333333333;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;

var
    a, n, k, h, t, x, y, z, j, d, b: integer;
    cnt, i: integer;
    s10, s100, s, s1, s2, s3, s4: string;
    r, m: array [1..30] of string;
    more, more1: boolean;


begin
    readln(s);
    k := 1;
    more1 := false;
    delete(s, length(s) + 1, 1);
    s1 := copy(s, 1, pos(' ', s) - 1);
    delete(s, 1, pos(' ', s));
    s2 := copy(s, 1, pos(' ', s) - 1);
    delete(s, 1, pos(' ', s));
    s3 := copy(s, 1, pos(' ', s) - 1);
    delete(s, 1, pos(' ', s));
    s4 := s;

    r[1] := s1 + s2 + s3 + s4;
    r[2] := s1 + s2 + s4 + s3;
    r[3] := s1 + s3 + s2 + s4;
    r[4] := s1 + s3 + s4 + s2;
    r[5] := s1 + s4 + s2 + s3;
    r[6] := s1 + s4 + s3 + s2;

    r[7] := s2 + s1 + s4 + s3;
    r[8] := s2 + s1 + s3 + s4;
    r[9] := s2 + s3 + s1 + s4;
    r[10] := s2 + s3 + s4 + s1;
    r[11] := s2 + s4 + s1 + s3;
    r[12] := s2 + s4 + s3 + s1;

    r[13] := s3 + s1 + s2 + s4;
    r[14] := s3 + s1 + s4 + s2;
    r[15] := s3 + s2 + s1 + s4;
    r[16] := s3 + s2 + s4 + s1;
    r[17] := s3 + s4 + s1 + s2;
    r[18] := s3 + s4 + s2 + s1;

    r[19] := s4 + s1 + s2 + s3;
    r[20] := s4 + s1 + s3 + s2;
    r[21] := s4 + s2 + s1 + s3;
    r[22] := s4 + s2 + s3 + s1;
    r[23] := s4 + s3 + s2 + s1;
    r[24] := s4 + s3 + s1 + s2;

   { for i := 1 to 24 do begin
      writeln(r[i]);
    end; }

    for i := 1 to 24 do begin
       cnt := 1;
       s10 := r[i];
    while(pos('.', r[i]) > 0) and (cnt = 1) do begin
      s100 := copy(r[i], 1, pos('.',r[i]) -1);
      if (s100 = '') then
        cnt := 0
        else begin
          val(r[i], a, b);
          if not (a in [0..255]) then
            cnt := 0
              else delete(r[i] ,1 , pos('.',r[i]));
        end;
    end;
    if (r[i] <> '.') and (r[i] <> ' ') and (r[i] <> '') then
      if (cnt = 1) and (strtoint(r[i]) in [0..255]) then begin
        for j := 1 to k do
          if (m[j] = s10) then
            more1 := true;
        if (not more1) then begin
          m[k] := s10;
        inc(k);
        end;
        more1 := false;
    end;
    end;
    for i := 1 to k - 1 do
      writeln(m[i]);
    readln;
end.