just another scheme hacker

jash.rkt

(((λ(_)((λ(.#)((λ(!)((λ(~)((λ(--)((λ(%)((λ(*)((λ($)((λ(d)
((λ(f)((λ(>)(f(λ(^)((> >)^))))(λ(>)(f(λ(^)((> >)^))))))(λ
(f)(λ(^)(let ~((< 0))(cond((>= <(_ ^))(void))((eq?(.# ^ <
)#\[)((λ(>)((λ(^)(let ~()(unless(= --(! $ *))(f ^)(~)))(~
(+ > %)))(substring ^(+ % <)>)))((λ(o)((λ(f)(let ~((++ --
)(f(+ f %)))((λ(<)(if(= <(- %))f(~ < (+ f %))))(case(.# o
f)((#\[)(+ % ++))((#\])(- ++ %))(else ++)))))<))^)))(#t(d
(.# ^ <))(~(+ % <)))))))))(λ(>)(cond((assoc >`((#\..,(λ @
(write-byte(! $ *))))(#\,.,(λ()(~ $ *(read-byte))))(#\>.,
(λ .(set! *(+ % *))))(#\<.,(λ()(set! *(- * %))))(#\+.,(λ(
)(~ $ *(+(! $ *)%))))(#\-.,(λ()(~ $ *(-(! $ *)%))))))=>(λ
(>)((cdr >))))))))(make-vector 2 0)))0))1))0))vector-set!
))vector-ref))string-ref))string-length) "[-]>[-]<>++++++
++++[<++++++++++>-]<++++++.>+++[<+++>-]<++.--.+.>++++++++
+[<--------->-]<---.>++++++++[<++++++++>-]<+.>++++[<++++>
-]<---.+.>++[<++>-]<+.>+++[<--->-]<---.---.>++++[<++++>-]
<---.>+++++++++[<--------->-]<-.>+++++++++[<+++++++++>-]<
++.>++++[<---->-]<.>++[<++>-]<+.---.>+++[<+++>-]<-.>+++[<
--->-]<+.>++++++++[<-------->-]<-----.>++++++++[<++++++++
>-]<++++++++.>+++[<--->-]<++.++.>+++[<+++>-]<-.>++[<-->-]
<--.>++++[<++++>-]<---.")