(let('(rec,x(display(ref" etianmsurwdkgohvf,l.pjbxcyzq"(modulo x 32)))1))'(fold(rec(_ c b)(case c((#\/)'b)((#\ )''b)((#\.)(* b 2))((#\-)(+ b b 1))))1(string->list(read-line))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).