(defmacro q[& a] `(with-precision ~@a))
(defn h[n](nth(str(reduce +(map #(let[p(+(* n 2)1)a(q p(/ 1M(.pow 16M %)))b(q p(/ 4M(+(* 8 %)1)))c(q p(/ 2M(+(* 8 %)4)))d(q p(/ 1M(+(* 8 %)5)))e(q p(/ 1M(+(* 8 %)6)))](* a(-(-(- b c)d)e)))(range(+ n 9)))))(+ n 2)))
(println (map h [0 1 2 3 4 5 10 100]))
KGRlZm1hY3JvIHFbJiBhXSBgKHdpdGgtcHJlY2lzaW9uIH5AYSkpCihkZWZuIGhbbl0obnRoKHN0cihyZWR1Y2UgKyhtYXAgIyhsZXRbcCgrKCogbiAyKTEpYShxIHAoLyAxTSgucG93IDE2TSAlKSkpYihxIHAoLyA0TSgrKCogOCAlKTEpKSljKHEgcCgvIDJNKCsoKiA4ICUpNCkpKWQocSBwKC8gMU0oKygqIDggJSk1KSkpZShxIHAoLyAxTSgrKCogOCAlKTYpKSldKCogYSgtKC0oLSBiIGMpZCllKSkpKHJhbmdlKCsgbiA5KSkpKSkoKyBuIDIpKSkKCihwcmludGxuIChtYXAgaCBbMCAxIDIgMyA0IDUgMTAgMTAwXSkpCgo=