Program ooo;
var i,n:integer;
a:array[1..7] of integer;
num:longint;
BEGIN
readln(num);
n:=0;
repeat
inc(n);
a[n]:=num mod 10;
num:=num div 10;
until num=0;
writeln('4islo: ');
for i:=1 to n do write(a[i],' ');
END.