$t = '"' x(3);
@b =
(
   "print(lambda(p), q, z, zz, x, d:
      eval(eval(p)(q))(p, q, x, d, '$t')
   )(
      $t$p$t,
      $t$x$t,
      $t$q$t,
      $t$x$t,
      $t$q$t,
      $t$d$t
   )"    
   =~ /\S/gs
);

map
{
   print
      (($i = ord) < 39 ? chr(10)
                       : $i < 92 ? chr(32) x ($i - 39)
                                 : splice(@b, 0, $i - 92));
}
("$d!" =~ /\S/gs);

#str.upper((lambda(x):chr(ord(x[-4])+6)+x[2:4])("+Lunatic+"))