roma

var n: longint;

procedure explode(n: longint);
var n0, n1, n2, n3: longint;
begin
n3 := (n div 1000) mod 10;
n2 := (n div 100) mod 10;
n1 := (n div 10) mod 10;
n0 := n mod 10;
writeln(n3);
writeln(n2);
writeln(n1);
writeln(n0);
end;

begin
read(n);
explode(n);
end.