M S =REPLACE(INPUT,'012356789','100001021') :F()
 C =0
L C =C + ORD(S) - 48
 S =SUBSTR(S,2) :S(L)
 OUTPUT =C :(M)
END