(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))))