(set'x 0)(princ(doseq(c"ip/XgsRHS((ZV\"\\K{(8DEl;t4j`C5v=l}XUv9=5N,D/s;iP |u?3ps/E(F]T]#_{q2Xf4r k>H)NU-c{n%IT)n<]^wjuY\"{OMzU*84W?aA53,Q^4/pl?7*ci`1R@$,f iTf^l!) wGT=CLs>"x)(set'x(+(if(eq c #\ )13(char-int c))(ash x 7)))))