i := 10
while(i asString fromBase(13) % i != 0, i = i + 1)
i println