(*Q);q! code3.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("Q.O.X,Q.O.X.", "szgxtaJapma=qtat=7"));;