let rec(@)s i=try(s@i+1)+Char.code s.[i]with _->0and(!)?(b=read_line())a=a@0==b@0&()=print_endline(b);!a;;!(read_line())