(doseq(c"Su=Yuhv R,'gugKZ'. Q,=u.Ku>v=g Qu?hA PuAKB PAhBg Pg>g',uB' P'hK'Cg R'uKgAY U''[' V. V= V= .U=U. '=..R=R,u=' K'>u.P=Qu>g Lg?.O=Pu>g L'?uO=Og?g M@.N=O@g Lg@gN=O@g Lg@gN=Ng@g LgAN=Nu@g L'AuM=M,Ag MgA.L=MuA' Ng@uL=LgAY O'@L=Lg@Y P'g>L=K,?g' RZgK=KgZ'")(if(> #1=(-(char-int c)60)0)(dotimes(i(mod #1#14))(princ(aref"M \":;"(floor #1#14))))(princ c)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).