var
  f: text;
  itr: integer;
  p, s: string;
  ans: double;
  answer_array: array of string;

begin
  assign(f, 'input.txt');
  reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    for var i := 1 to length(s) do
    begin
      if (s[i] <> ' ') then p := p + s[i]
      else
      begin
        if(TryStrToFloat(p, ans)) then
          if(FloatToStr(ans) = p) then
          begin
            inc(itr);
            setLength(answer_array, itr + 1);
            answer_array[itr] := p;
          end;
        p := '';
      end;
    end;
    if(TryStrToFloat(p, ans)) then
      if(FloatToStr(ans) = p) then
      begin
        inc(itr);
        setLength(answer_array, itr + 1);
        answer_array[itr] := p;
      end;
    p := '';
  end;
  close(f);
  rewrite(f);
  for var i := 0 to length(answer_array) - 1 do
  begin
    writeln(f, answer_array[i]);
  end;
  close(f);
end.