(eval((fn[program] (let [n (zipmap '(+ - > < . ?
)(repeatedly gensym))](letfn[(f* [s](if (vector?
s)`(while (not (~(n '?))) ~@(map f* s))`(~(n s))
))]`(let[t#(int-array 100 0)pt# (atom 0)a#(fn[c#
]#(aset t# @pt# (c# (aget t# @pt#))))b#(fn[d#]#(
swap! pt# d#))~(vec(map n '(+ - > <))) (map #(%1
%2) [a# a# b# b#] (cycle [inc dec]))  ~(n '.) #(
print (char (aget t# @pt#)))~(n '?)#(zero? (aget
t# @pt#)) ] ~@(map f* (read-string (str "(" (->>
program(interpose \space)(apply str))")")))))))"
++++++++[>++++++++<-]>+.[>+<-]+++++[>-----<-]>--
------.[>+<-]++++++++[>++++++++<-]>++++++++++++.
+++.+++++.[>+<-]+++++++++[>---------<-]>---.[>+<
-]++++++++[>++++++++<-]>+++++++++++++++.--------
-.[>+<-]++++++++[>--------<-]>------.[>+<-]+++++
+++[>++++++++<-]>++++++++.-------.++.++++++++.--
.+++++.-------.[>+<-]++++++++[>--------<-]>-----
--.[>+<-]++++++++[>++++++++<-]>+++++++++.+++++++
+++.[>+<-]+++++++++[>---------<-]>--.[>+<-]+++++
+++[>++++++++<-]>++++++++++++++++.----.---------
--.++++++++++++++++++++++++.----------------.+++
++.-------.[>+<-]++++++++[>--------<-]>-------.[
>+<-]+++++++++[>+++++++++<-]>++++++.------------
--.+++++++++++.------------.[>+<-]++++++++[>----
----<-]>--------.[>+<-]++++++++[>++++++++<-]>+++
++++++++++++.+++++.------------.---.++++++++++++
+.[>+<-]+++++++++[>---------<-]>-.[>+<-]++++++++
[>++++++++<-]>++++++++++++++++.-----------.+++++
+++++.+.----.-------.[>+<-]+++++++[>-------<-]>-
-------.------------.[>+<-]+++++++++[>+++++++++<
-]>++++++++.----------.++++++.[>+<-]+++++++++[>-
--------<-]>----.[>+<-]++++++++[>++++++++<-]>+++
++++++++.+++.+.++++++++.[>+<-]++++++++[>--------
<-]>-----------.------------.[>+<-]++++++++[>+++
+++++<-]>+++++++.--.+++++++++++++++..-----------
.+++++.-------.[>+<-]++++++++[>--------<-]>-----
--.[>+<-]+++++++++[>+++++++++<-]>+++.-----------
-.---.++++++++.[>+<-]++++++++[>--------<-]>-----
--------.[>+<-]+++++++++[>+++++++++<-]>+++.-----
.[>+<-]++++++++[>--------<-]>---------------.[>+
<-]++++++++[>++++++++<-]>++++.+++++++++++.[>+<-]
++++++++[>--------<-]>---------------.[>+<-]++++
+++++[>+++++++++<-]>++.+.--.-----------------.++
+++++++++++.-------.--.[>+<-]++++++++[>--------<
-]>-----.[>+<-]+++++++++[>+++++++++<-]>+++.-----
-------.+.+++++.-------.++++++++++++.[>+<-]+++++
+++[>--------<-]>-----.--------------.++++++++++
+++.[>+<-]++++++[>++++++<-]>++.[>+<-]+++++[>++++
+<-]>++++++++.---------------.+++++++++++++++++.
-----------------.[>+<-]++++++++[>--------<-]>--
---.[>+<-]+++++++[>+++++++<-]>++++++.+++++++++++
+++++++++++++.+++++++++++.------------.-----.---
-----.++++++++++.[>+<-]+++++++++[>---------<-]>-
---------------."))

KGV2YWwoKGZuW3Byb2dyYW1dIChsZXQgW24gKHppcG1hcCAnKCsgLSA+IDwgLiA/CikocmVwZWF0ZWRseSBnZW5zeW0pKV0obGV0Zm5bKGYqIFtzXShpZiAodmVjdG9yPwpzKWAod2hpbGUgKG5vdCAofihuICc/KSkpIH5AKG1hcCBmKiBzKSlgKH4obiBzKSkKKSldYChsZXRbdCMoaW50LWFycmF5IDEwMCAwKXB0IyAoYXRvbSAwKWEjKGZuW2MjCl0jKGFzZXQgdCMgQHB0IyAoYyMgKGFnZXQgdCMgQHB0IykpKSliIyhmbltkI10jKApzd2FwISBwdCMgZCMpKX4odmVjKG1hcCBuICcoKyAtID4gPCkpKSAobWFwICMoJTEKJTIpIFthIyBhIyBiIyBiI10gKGN5Y2xlIFtpbmMgZGVjXSkpICB+KG4gJy4pICMoCnByaW50IChjaGFyIChhZ2V0IHQjIEBwdCMpKSl+KG4gJz8pIyh6ZXJvPyAoYWdldAp0IyBAcHQjKSkgXSB+QChtYXAgZiogKHJlYWQtc3RyaW5nIChzdHIgIigiICgtPj4KcHJvZ3JhbShpbnRlcnBvc2UgXHNwYWNlKShhcHBseSBzdHIpKSIpIikpKSkpKSkiCisrKysrKysrWz4rKysrKysrKzwtXT4rLls+KzwtXSsrKysrWz4tLS0tLTwtXT4tLQotLS0tLS0uWz4rPC1dKysrKysrKytbPisrKysrKysrPC1dPisrKysrKysrKysrKy4KKysrLisrKysrLls+KzwtXSsrKysrKysrK1s+LS0tLS0tLS0tPC1dPi0tLS5bPis8Ci1dKysrKysrKytbPisrKysrKysrPC1dPisrKysrKysrKysrKysrKy4tLS0tLS0tLQotLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS0uWz4rPC1dKysrKysKKysrWz4rKysrKysrKzwtXT4rKysrKysrKy4tLS0tLS0tLisrLisrKysrKysrLi0tCi4rKysrKy4tLS0tLS0tLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLQotLS5bPis8LV0rKysrKysrK1s+KysrKysrKys8LV0+KysrKysrKysrLisrKysrKysKKysrLls+KzwtXSsrKysrKysrK1s+LS0tLS0tLS0tPC1dPi0tLls+KzwtXSsrKysrCisrK1s+KysrKysrKys8LV0+KysrKysrKysrKysrKysrKy4tLS0tLi0tLS0tLS0tLQotLS4rKysrKysrKysrKysrKysrKysrKysrKysuLS0tLS0tLS0tLS0tLS0tLS4rKysKKysuLS0tLS0tLS5bPis8LV0rKysrKysrK1s+LS0tLS0tLS08LV0+LS0tLS0tLS5bCj4rPC1dKysrKysrKysrWz4rKysrKysrKys8LV0+KysrKysrLi0tLS0tLS0tLS0tLQotLS4rKysrKysrKysrKy4tLS0tLS0tLS0tLS0uWz4rPC1dKysrKysrKytbPi0tLS0KLS0tLTwtXT4tLS0tLS0tLS5bPis8LV0rKysrKysrK1s+KysrKysrKys8LV0+KysrCisrKysrKysrKysrKy4rKysrKy4tLS0tLS0tLS0tLS0uLS0tLisrKysrKysrKysrKworLls+KzwtXSsrKysrKysrK1s+LS0tLS0tLS0tPC1dPi0uWz4rPC1dKysrKysrKysKWz4rKysrKysrKzwtXT4rKysrKysrKysrKysrKysrLi0tLS0tLS0tLS0tLisrKysrCisrKysrLisuLS0tLS4tLS0tLS0tLls+KzwtXSsrKysrKytbPi0tLS0tLS08LV0+LQotLS0tLS0tLi0tLS0tLS0tLS0tLS5bPis8LV0rKysrKysrKytbPisrKysrKysrKzwKLV0+KysrKysrKysuLS0tLS0tLS0tLS4rKysrKysuWz4rPC1dKysrKysrKysrWz4tCi0tLS0tLS0tPC1dPi0tLS0uWz4rPC1dKysrKysrKytbPisrKysrKysrPC1dPisrKworKysrKysrKy4rKysuKy4rKysrKysrKy5bPis8LV0rKysrKysrK1s+LS0tLS0tLS0KPC1dPi0tLS0tLS0tLS0tLi0tLS0tLS0tLS0tLS5bPis8LV0rKysrKysrK1s+KysrCisrKysrPC1dPisrKysrKysuLS0uKysrKysrKysrKysrKysrLi4tLS0tLS0tLS0tLQouKysrKysuLS0tLS0tLS5bPis8LV0rKysrKysrK1s+LS0tLS0tLS08LV0+LS0tLS0KLS0uWz4rPC1dKysrKysrKysrWz4rKysrKysrKys8LV0+KysrLi0tLS0tLS0tLS0tCi0uLS0tLisrKysrKysrLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLQotLS0tLS0tLS5bPis8LV0rKysrKysrKytbPisrKysrKysrKzwtXT4rKysuLS0tLS0KLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS0tLS0tLS0tLS0uWz4rCjwtXSsrKysrKysrWz4rKysrKysrKzwtXT4rKysrLisrKysrKysrKysrLls+KzwtXQorKysrKysrK1s+LS0tLS0tLS08LV0+LS0tLS0tLS0tLS0tLS0tLls+KzwtXSsrKysKKysrKytbPisrKysrKysrKzwtXT4rKy4rLi0tLi0tLS0tLS0tLS0tLS0tLS0tLisrCisrKysrKysrKysrLi0tLS0tLS0uLS0uWz4rPC1dKysrKysrKytbPi0tLS0tLS0tPAotXT4tLS0tLS5bPis8LV0rKysrKysrKytbPisrKysrKysrKzwtXT4rKysuLS0tLS0KLS0tLS0tLS4rLisrKysrLi0tLS0tLS0uKysrKysrKysrKysrLls+KzwtXSsrKysrCisrK1s+LS0tLS0tLS08LV0+LS0tLS0uLS0tLS0tLS0tLS0tLS0uKysrKysrKysrKworKysuWz4rPC1dKysrKysrWz4rKysrKys8LV0+KysuWz4rPC1dKysrKytbPisrKysKKzwtXT4rKysrKysrKy4tLS0tLS0tLS0tLS0tLS0uKysrKysrKysrKysrKysrKysuCi0tLS0tLS0tLS0tLS0tLS0tLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLQotLS0uWz4rPC1dKysrKysrK1s+KysrKysrKzwtXT4rKysrKysuKysrKysrKysrKysKKysrKysrKysrKysrKy4rKysrKysrKysrKy4tLS0tLS0tLS0tLS0uLS0tLS0uLS0tCi0tLS0tLisrKysrKysrKysuWz4rPC1dKysrKysrKysrWz4tLS0tLS0tLS08LV0+LQotLS0tLS0tLS0tLS0tLS0uIikp