У Миши развитое эстетическое чувство. Он считает, что не все числа одинаково порядочные. Когда ему грустно, он начинает придумывать числа и приводить их в порядок.

Миша очень любит рассматривать сумму цифр числа. Для того чтобы привести в порядок число A, он сначала записывает само число. Потом он пишет сумму цифр этого числа. Затем — сумму цифр суммы цифр и так далее, до тех пор, пока очередное число не станет однозначным. Он считает, что результатом приведения в порядок числа A является сумма всех выписанных чисел, включая само число A.

Миша настолько любит этот процесс, что он даже заменяет ему счёт овец, когда долго не получается заснуть. Он помнит, что вчера ночью, когда он в уме привёл в порядок число A, у него получилось число B. Но вот беда — он не помнит, какое именно он взял число A! Помогите ему в отыскании этого числа.

Входные данные
На ввод подаётся единственное целое число B (1 ≤ B ≤ 109 )

Выходные данные
Если существует такое число A, что после приведения его в порядок, получается B, то выведите любое такое число. Если же Миша где-то ошибся в расчётах и такого числа не существует, то выведите -1.

Примеры тестов

входные данные
42
выходные данные
29

входные данные
20
выходные данные
-1

Примечание

Пояснение к первому примеру. Последовательность сумм цифр для 29 состоит из чисел 29, 11, 2. Соответственно, после приведения в порядок число 29 превращается в число 42 = 29 + 11 + 2.

решал вот так,
def order(n):
return n + order(sum(map(int, str(n)))) if n > 9 else n
def main():
n = int(input())
for i in range(105):
if order(i) == n:
print(i)
break
else:
print(-1)
if __name__ == "__main__":
main()

но прошло только 8/12 тестов.
Язык любой, если что в питон сам переведу.
Цена высока!!!

нет, проходит только 7/12 тестов, когда мой проходит 8/12

Function sumdigits(n As Integer) As IntegerDim a(1 To 126), i, j, k, l, s, tt1, t1 As IntegerFor l = 1 To 126a(l) = -1Next lFor l = 1 To 109i = Fix(l / 100)j = Fix((l - 100 * i) / 10)k = l - 100 * i - j * 10s = i + j + ktt1 = Fix(s / 10) + (s Mod 10)t1 = Fix(Log(s) / Log(10#))s = s + t1 * tt1 + la(s) = lNext lsumdigits = a(n)End Function'Excel VBA

a = int(input())

s = 1

flag = True

while s < a:

   ch = s

   count = ch

   while ch > 9:

       ch = sum(map(int,str(ch)))

       count += ch

   if count == a:

       print(s)

       flag = False

       break

   s += 1

if flag:

   print(-1)