var i, c: integer;
var n: real;
var str, str2: string;

begin
  str2 := '';
  read(str);
  n := length(str);
  i := 1;
  while i <= n do begin
    if str[i] = '8' then begin
      insert(' ', str, i);
      i := i + 1;
      n := n + 1;
    end;
    i := i + 1;
  end;
  writeln(str);
end.