program mn;
uses crt;
var s,z:string;
f,ff:text;
i,k:integer;
BEGIN CLrScr;
Assign(f,'input.txt');
reset(f);
Assign(ff,'output.txt');
rewrite(ff);
randomize;
While not eof(f) do begin readln(f,s);
s:=s+' ';
for i:=1 to 3 do begin k:=random(40)+10;
str(k,z);
s:=s+z+'-';
end;
delete(s,length(s),1);
writeln(ff,s);
end;
close(f);
close(ff);
readln;
END.