(*Q);q! code4.ml - Don Yang (uguu.org) *)
open String;;
open Char;;

let p = print_string;;
let n = 3-2;;
let z = 2-2;;

let rec g s k =
   match s with
   a::b -> (make n (chr (a lxor k)) ^ (g b k))
   | [] -> "";;

let t a b =
   sub a b ((length a) - b);;

let rec h a =
   if a = ""
   then []
   else
      code (get a z) ::
      h (t a n);;

let o s k =
   g (h s) k;;

let rec r a =
   if a = ""
   then a
   else
   (
      (let x = sub a z n in if x = " " || x = "\n" then "" else x) ^
      (r (t a n))
   );;

let rec f(a, b) =
   match a with
   x::y ->
      if x > 64 && x < (89+2) then
      (
         let x = x - 64 in
         (
            p (sub b z x);
            f(y, (t b x))
         )
      )
      else
      (
         if x > 96 && x < (6*22-9)
         then p (make (x - 96) ' ')
         else p "\n";
         f(y, b)
      );
   | [] -> ();;

let q =
   make n (chr 34);;

let d (a, b) =
   (h(t (r(a)) ((index (r(a)) ',') + n)),
   (o (r(b)) (23-2)) ^
   (r(a)) ^ q ^ "," ^ q ^
   (r(b)) ^ q ^ "));;")
(*!;

$o = 2-2;

($q = q!
Mo
{
   $r .= chr ($_[$o] ^ ord $_) foreach ($z =~ /./g);
   $r;
}
Mr
{
   ($s = $_[$o]) =~ s/\s//g;
   $s;
}
Mf
{
   $t = $_[3-2];
   foreach $x ($_[$o] =~ /./g)
   {
      $x = ord $x;
      print
      (
         ($x > 64 && $x < (89+2)) ? (substr $t, $o, ($x -= 64)) :
         ($x > 96 && $x < (6*22-9)) ? ("k" x ($x - 96)) : "\n"
      );
      ($x <= 26) && ($t = substr $t, $x);
      if( $x == 44 ) { last; }
   }
}
Md
{
   $x = r($_[$o]);
   $z = r($_[3-2]);
   ($x,
   o(23-2) .
   $x . '","' .
   $z . chr(34) . '));;');
}
!) =~ s/\s//g;
$q =~ s/M/sub /g;
$q =~ s/k/ /;
eval $q

#*)
;;

f(d(
"

C.D.F.H.DaD.EaB.L.EaG.CaJ.CaAaAaG.AaDaK.GaDaF.AaOaA.AaEaAaIaA.IaCaAaDaA.MaH.Aa
GaAaGaAaA.EaHaCaAaD.HaAaIaE.AaAaAaBaBaCaM.FaGaAaIaC.LaAaDaHaB.TaFaD.DaAaAaIaAa
L.TaL.AaFaZ.FaEaHaN.ZK.ZM.ZN.ZO.ZP.ZQ.ZR.ZS.ZT.ZY.KaKaK.ZZ.ZZA.ZZB.ZZC.ZZD.ZZE
.ZZF.ZZG.ZZH.ZZI.ZZJ.ZZK.ZZL.ZZM.ZZN.ZZO.ZZP.ZZQ.ZZR.ZZS.ZZT.ZZU.ZZV.ZZW.ZZX.Z
ZP,

aMaLaIaSaJaJ.bCaAaAaGaAaDaKaGaDaFaAaOaAaA.cEaAaIaJaCaAaDaNaHaAaGaA.dGaAaAaEaHa
CaAaDaHaAaIaEaAaAaAaB.eBaCaSaGaAaIaCaLaAaDaC.fEaVaFaHaAaAaIaAaL.gTaMaFaZaB.hDa
EaHaZY.iZZR.jZZQ.kZZP.lZZO.mZZN.nZZJaB.oIaK.pZZK.qZZJ.rZZI.sZZH.tZZG.uZZF.vZZE
.wZZD.xZZC.yZZB.zZZA.zaZZ.zbZY.zcZX.zdZW.zeZV.zfZU.zgZT.zhZS.ziZR.zjZQ.zkZP.zl
ZO.zmZN.znZM.zoZL.zpZK.zqZJ.zrZI.zsZH.ztZG.zuZF.zvZE.zwZD.zxZC.zyZB.zwZD.
",
"
=?D<.d4?<
zep{Fag|{r..
zep{V}tg..

ypae(eg|{aJfag|{r..
ypa{(&8'..
ypao('8'..

ypagpvrf~(
xtav}fb|a}
t//w8+=xt~p{=v}g=tymzg~<<K=rw~<<
iNH8+77..

ypaatw(
f`wtw==yp{ra}t<8w<..

ypagpv}t(
|st(77
a}p{NH
pyfp
vzqp=rpato<//
}=at{<..

ypazf~(
r=}f<~..

ypagpvgt(
|st(77
a}p{t
pyfp
=
=ypam(f`wto{|{|sm(77iim(7I{7a}p{77pyfpm<K
=g=at{<<
<..

ypagpvs=t9w<(
xtav}tb|a}
m//l8+
|sm+#!33m)=-,>'<a}p{
=
ypam(m8#!|{
=
e=f`wwom<.
s=l9=awm<<
<
<
pyfp
=
|sm+,#33m)=#?''8,<
a}p{e=xt~p=m8,#<22<
pyfpe7I{7.
s=l9w<
<.
iNH8+=<..

ypad(
xt~p{=v}g&!<..

ypaq=t9w<(
=}=a=g=t<<==|{qpm=g=t<<292<>{<<9
=z=g=w<<='&8'<<K
=g=t<<KdK797KdK
=g=w<<KdK7<<..7<
=?4.

1z('8'.

=1d(d4
Xz
n
1g;(v}g=1JN1zHKzgq1J<szgptv}=1o(k:;:r<.
1g.
h
Xg
n
=1f(1JN1zH<(kf:If::r.
1f.
h
Xs
n
1a(1JN&8'H.
szgptv}1m=1JN1zH(k:;:r<
n
1m(zgq1m.
eg|{a
=
=1m+#!331m)=-,>'<<*=f`wfag1a91z9=1m8(#!<</
=1m+,#331m)=#?''8,<<*=7~7m=1m8,#<</7I{7
<.
=1m)('#<33=1a(f`wfag1a91m<.
|s=1m((!!<nytfa.h
h
h
Xq
n
1m(g=1JN1zH<.
1o(g=1JN&8'H<.
=1m9
z='&8'<;
1m;27972;
1o;v}g=&!<;2<<..2<.
h
4<(kf:If::r.
1d(kf:X:f`w:r.
1d(kf:~::.
pcty1d

6?<
..

s=q=7
"));;