import sequtils,algorithm,strutils template times*(n:int,body) = (for _ in 0.." .} proc scan(): int = while true: let k = getchar_unlocked() if k < '0': break result = 10 * result + k.ord - '0'.ord proc printf(formatstr: cstring){.header: "", varargs.} proc putchar_unlocked(c:char){. importc:"putchar_unlocked",header: "" .} proc parse(lastNumIndex:var int): seq[string] = result = @[] var length = 0 var current = "" var isNum = false while true: let k = getchar_unlocked() if k.ord < 32 or k.ord > 126 : result &= current if isNum : lastNumIndex = length return let kIsNum = k >= '0' and k <= '9' if isNum xor kIsNum and current != "": result &= current if isNum : lastNumIndex = length length += 1 current = "" current &= k isNum = kIsNum proc add1(S:string):string = result = "" var ch = 1 for i in (S.len-1).countdown(0): let c = S[i].ord - '0'.ord let d = c + ch if d < 10 : result &= ('0'.ord + d).chr ch = 0 else: result &= ('0'.ord + d mod 10).chr ch = 1 if ch > 0: result &= ('0'.ord + ch).chr result.reverse() scan().times: var lastNumIndex = -1 let P = parse(lastNumIndex) for i in 0..