$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);

#print(lambda(z):"Z"+z[1:3])("Lunatic++")