program dzfb1;

{$APPTYPE CONSOLE}

uses SysUtils;
var
Numbers:set of char=['0'..'9','-'];
num,s:string;
i,nn,t:integer;
new:boolean;
N:array[1..10] of integer;
begin
readln(s);

new:=true;
nn:=0;
t:=length(s);
for i:=1 to t do begin
if (s[i] in numbers) then begin
  if new then begin
  inc(nn);
  num:=s[i];
  end else num:=num+s[i];
if (i=t) and (num<>'-') then N[nn]:=strtoint(num);
new:=false;
end else begin
  if (new=false) then begin
  if (num<>'-') then N[nn]:=strtoint(num);
  end;
new:=true;
end;
end;

writeln('(N):');
if nn>=1 then write(n[1]);
for i:=2 to nn do write(', ',N[i]);

readln;
end.