Name: Anonymous 2007-06-14 13:03 ID:sju4sFJR
((λ (x) `(,x ',x)) '(λ (x) `(,x ',x)))
((λ (x) `(,x ',x)) '(λ (x) `(,x ',x)))
#!/usr/bin/perl
$_=<<'eof';eval $_;
print "#!/usr/bin/perl\n\$_=<<'eof';eval \$_;\n${_}eof\n"
eof