program test;
var rc:string[10];
var irc: Array [1..10] of Integer;
var i:Integer;
begin
readln(rc);
for i := 1 to 10 do begin
irc[i] := Ord(rc[i])-48;
writeln(irc[i]);
end;
end.
cHJvZ3JhbSB0ZXN0OwoKIHZhciByYzpzdHJpbmdbMTBdOwogdmFyIGlyYzogQXJyYXkgWzEuLjEwXSBvZiBJbnRlZ2VyOwogdmFyIGk6SW50ZWdlcjsKCiBiZWdpbgogICAgICByZWFkbG4ocmMpOwogICAgICBmb3IgaSA6PSAxIHRvIDEwIGRvIGJlZ2luCiAgICAgICAgICAgaXJjW2ldIDo9IE9yZChyY1tpXSktNDg7CiAgICAgICAgICAgd3JpdGVsbihpcmNbaV0pOwogICAgICBlbmQ7CiBlbmQu