begin repeat var c,d:char=char(eoln);read(c);write(pred(c,ord(d)*22):ord(c<>"0"),copy("87654321",58-ord(c)))until 0>0end.