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

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