var n,m,b:word;c:char;begin
repeat
read(c);b:=ord(c>^`);write(c:b);n:=n+b;if n>m then begin
writeln;n:=0;inc(m)end;until 1=0end.