(let*((c " etianmsurwdkgohvf,l.pjbxcyzq")(p(lambda(b)(and(display(string-ref c(modulo b 32)))1))))(p(fold(lambda(l b)(case l((#\/)(p b))((#\SPACE)(p b)(p 0))((#\.)(* 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).