#!/usr/bin/perl
# lily3.pl - Don Yang (uguu.org)
#
# 12/24/08

$p = "z0 z ! z s! 
      {1v^!a^!p!";
$q =
q{
   @b =
   (
      ('$p="' . $p . '";$q=q{' . $q . '};$q=~s/\s//gs;eval$q;') =~ /\S/gs
   );
   map
   {
      print
         (($d = ord) < 39 ? chr(10)
                          : $d < 92 ? chr(32) x ($d - 39)
                                    : splice(@b, 0, $d - 92));
   }
   ($p =~ /\S/gs);
};

$q =~ s/\s//gs;
eval $q;