let rec($)s?(c=input_byte stdin)i=try c<11&s$0="";s.[i]<-Obj.magic(+)s.[i](2-c mod 6);s$i+1with _->s;;print_string(read_line()$0)