var x,y:byte;c:char;begin
read(x,c,y);for x in[x..y]do writeln(x)end.