import math, sequtils proc fn(ns: seq[int]): int = let sumV = sum ns if sumV >= 10: fn @[sumV div 10, sumV mod 10] else: sumV let x = readLine stdin echo fn x.mapIt it.ord.pred 48