(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)) ")" )))))))"+++
+++++[>++++++++<-]>+.[>+<-]+++++[>-----<-]>--------.[>+<-]++++++++[>++++++++<-]>
++++++++++++.+++.+++++.[>+<-]+++++++++[>---------<-]>---.[>+<-]++++++++[>+++++++
+<-]>+++++++++++++++.---------.[>+<-]++++++++[>--------<-]>------.[>+<-]++++++++
[>++++++++<-]>++++++++.-------.++.++++++++.--.+++++.-------.[>+<-]++++++++[>----
----<-]>-------.[>+<-]++++++++[>++++++++<-]>+++++++++.++++++++++.[>+<-]+++++++++
[>---------<-]>--.[>+<-]++++++++[>++++++++<-]>++++++++++++++++.----.-----------.
++++++++++++++++++++++++.----------------.+++++.-------.[>+<-]++++++++[>--------
<-]>-------.[>+<-]+++++++++[>+++++++++<-]>++++++.--------------.+++++++++++.----
--------.[>+<-]++++++++[>--------<-]>--------.[>+<-]++++++++[>++++++++<-]>++++++
+++++++++.+++++.------------.---.+++++++++++++.[>+<-]+++++++++[>---------<-]>-.[
>+<-]++++++++[>++++++++<-]>++++++++++++++++.-----------.++++++++++.+.----.------
-.[>+<-]+++++++[>-------<-]>--------.------------.[>+<-]+++++++++[>+++++++++<-]>
++++++++.----------.++++++.[>+<-]+++++++++[>---------<-]>----.[>+<-]++++++++[>++
++++++<-]>+++++++++++.+++.+.++++++++.[>+<-]++++++++[>--------<-]>-----------.---
---------.[>+<-]++++++++[>++++++++<-]>+++++++.--.+++++++++++++++..-----------.++
+++.-------.[>+<-]++++++++[>--------<-]>-------.[>+<-]+++++++++[>+++++++++<-]>++
+.------------.---.++++++++.[>+<-]++++++++[>--------<-]>-------------.[>+<-]++++
+++++[>+++++++++<-]>+++.-----.[>+<-]++++++++[>--------<-]>---------------.[>+<-]
++++++++[>++++++++<-]>++++.+++++++++++.[>+<-]++++++++[>--------<-]>-------------
--.[>+<-]+++++++++[>+++++++++<-]>++.+.--.-----------------.+++++++++++++.-------
.--.[>+<-]++++++++[>--------<-]>-----.[>+<-]+++++++++[>+++++++++<-]>+++.--------
----.+.+++++.-------.++++++++++++.[>+<-]++++++++[>--------<-]>-----.------------
--.+++++++++++++.[>+<-]++++++[>++++++<-]>++.[>+<-]+++++[>+++++<-]>++++++++.-----
----------.+++++++++++++++++.-----------------.[>+<-]++++++++[>--------<-]>-----
.[>+<-]+++++++[>+++++++<-]>++++++.++++++++++++++++++++++++.+++++++++++.---------
---.-----.--------.++++++++++.[>+<-]+++++++++[>---------<-]>----------------."))
 

KGV2YWwoKGZuW3Byb2dyYW1dKGxldCBbbiAoemlwbWFwICcoKyAtID4gPCAuID8pKHJlcGVhdGVkbHkgZ2Vuc3ltKSldKGxldGZuWyhmKlsKc10gKGlmICh2ZWN0b3I/IHMpIGAod2hpbGUgKG5vdCAofihuICc/KSkpIH5AKG1hcCBmKiBzKSkgYCh+KG4gcykpKSldYChsZXQgW3QjICgKaW50LWFycmF5IDEwMCAwKXB0IyAoYXRvbSAwKWEjKGZuW2MjXSMoYXNldCB0IyBAcHQjKGMjIChhZ2V0IHQjIEBwdCMpKSkpYiMoZm5bZCMKXSMoc3dhcCEgcHQjIGQjKSkgfih2ZWMgKG1hcCBuICcoKyAtID4gPCkpKShtYXAgIyglMSAlMilbYSMgYSMgYiMgYiNdKGN5Y2xlIFtpbmMKZGVjXSkpfihuICcuKSMocHJpbnQoY2hhcihhZ2V0IHQjIEBwdCMpKSl+KG4gJz8pIyh6ZXJvPyhhZ2V0IHQjIEBwdCMpKV1+QChtYXAgZioKKHJlYWQtc3RyaW5nKHN0ciAiKCIoLT4+IHByb2dyYW0gKGludGVycG9zZSBcc3BhY2UpIChhcHBseSBzdHIpKSAiKSIgKSkpKSkpKSIrKysKKysrKytbPisrKysrKysrPC1dPisuWz4rPC1dKysrKytbPi0tLS0tPC1dPi0tLS0tLS0tLls+KzwtXSsrKysrKysrWz4rKysrKysrKzwtXT4KKysrKysrKysrKysrLisrKy4rKysrKy5bPis8LV0rKysrKysrKytbPi0tLS0tLS0tLTwtXT4tLS0uWz4rPC1dKysrKysrKytbPisrKysrKysKKzwtXT4rKysrKysrKysrKysrKysuLS0tLS0tLS0tLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS0uWz4rPC1dKysrKysrKysKWz4rKysrKysrKzwtXT4rKysrKysrKy4tLS0tLS0tLisrLisrKysrKysrLi0tLisrKysrLi0tLS0tLS0uWz4rPC1dKysrKysrKytbPi0tLS0KLS0tLTwtXT4tLS0tLS0tLls+KzwtXSsrKysrKysrWz4rKysrKysrKzwtXT4rKysrKysrKysuKysrKysrKysrKy5bPis8LV0rKysrKysrKysKWz4tLS0tLS0tLS08LV0+LS0uWz4rPC1dKysrKysrKytbPisrKysrKysrPC1dPisrKysrKysrKysrKysrKysuLS0tLS4tLS0tLS0tLS0tLS4KKysrKysrKysrKysrKysrKysrKysrKysrLi0tLS0tLS0tLS0tLS0tLS0uKysrKysuLS0tLS0tLS5bPis8LV0rKysrKysrK1s+LS0tLS0tLS0KPC1dPi0tLS0tLS0uWz4rPC1dKysrKysrKysrWz4rKysrKysrKys8LV0+KysrKysrLi0tLS0tLS0tLS0tLS0tLisrKysrKysrKysrLi0tLS0KLS0tLS0tLS0uWz4rPC1dKysrKysrKytbPi0tLS0tLS0tPC1dPi0tLS0tLS0tLls+KzwtXSsrKysrKysrWz4rKysrKysrKzwtXT4rKysrKysKKysrKysrKysrLisrKysrLi0tLS0tLS0tLS0tLS4tLS0uKysrKysrKysrKysrKy5bPis8LV0rKysrKysrKytbPi0tLS0tLS0tLTwtXT4tLlsKPis8LV0rKysrKysrK1s+KysrKysrKys8LV0+KysrKysrKysrKysrKysrKy4tLS0tLS0tLS0tLS4rKysrKysrKysrLisuLS0tLS4tLS0tLS0KLS5bPis8LV0rKysrKysrWz4tLS0tLS0tPC1dPi0tLS0tLS0tLi0tLS0tLS0tLS0tLS5bPis8LV0rKysrKysrKytbPisrKysrKysrKzwtXT4KKysrKysrKysuLS0tLS0tLS0tLS4rKysrKysuWz4rPC1dKysrKysrKysrWz4tLS0tLS0tLS08LV0+LS0tLS5bPis8LV0rKysrKysrK1s+KysKKysrKysrPC1dPisrKysrKysrKysrLisrKy4rLisrKysrKysrLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS0tLS0tLS4tLS0KLS0tLS0tLS0tLls+KzwtXSsrKysrKysrWz4rKysrKysrKzwtXT4rKysrKysrLi0tLisrKysrKysrKysrKysrKy4uLS0tLS0tLS0tLS0uKysKKysrLi0tLS0tLS0uWz4rPC1dKysrKysrKytbPi0tLS0tLS0tPC1dPi0tLS0tLS0uWz4rPC1dKysrKysrKysrWz4rKysrKysrKys8LV0+KysKKy4tLS0tLS0tLS0tLS0uLS0tLisrKysrKysrLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS0tLS0tLS0tLls+KzwtXSsrKysKKysrKytbPisrKysrKysrKzwtXT4rKysuLS0tLS0uWz4rPC1dKysrKysrKytbPi0tLS0tLS0tPC1dPi0tLS0tLS0tLS0tLS0tLS5bPis8LV0KKysrKysrKytbPisrKysrKysrPC1dPisrKysuKysrKysrKysrKysuWz4rPC1dKysrKysrKytbPi0tLS0tLS0tPC1dPi0tLS0tLS0tLS0tLS0KLS0uWz4rPC1dKysrKysrKysrWz4rKysrKysrKys8LV0+KysuKy4tLS4tLS0tLS0tLS0tLS0tLS0tLS4rKysrKysrKysrKysrLi0tLS0tLS0KLi0tLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS5bPis8LV0rKysrKysrKytbPisrKysrKysrKzwtXT4rKysuLS0tLS0tLS0KLS0tLS4rLisrKysrLi0tLS0tLS0uKysrKysrKysrKysrLls+KzwtXSsrKysrKysrWz4tLS0tLS0tLTwtXT4tLS0tLS4tLS0tLS0tLS0tLS0KLS0uKysrKysrKysrKysrKy5bPis8LV0rKysrKytbPisrKysrKzwtXT4rKy5bPis8LV0rKysrK1s+KysrKys8LV0+KysrKysrKysuLS0tLS0KLS0tLS0tLS0tLS4rKysrKysrKysrKysrKysrKy4tLS0tLS0tLS0tLS0tLS0tLS5bPis8LV0rKysrKysrK1s+LS0tLS0tLS08LV0+LS0tLS0KLls+KzwtXSsrKysrKytbPisrKysrKys8LV0+KysrKysrLisrKysrKysrKysrKysrKysrKysrKysrKy4rKysrKysrKysrKy4tLS0tLS0tLS0KLS0tLi0tLS0tLi0tLS0tLS0tLisrKysrKysrKysuWz4rPC1dKysrKysrKysrWz4tLS0tLS0tLS08LV0+LS0tLS0tLS0tLS0tLS0tLS4iKSkK