#!/usr/bin/perl
# The natural constant e is about 0

$e=0;$n=0;sub f{$a++;$a*=$_ for 1..shift;$a?$a:1}$m=q[$e+=1/f $n++;print<<"EOB"
#!/usr/bin/perl\n# The natural constant e is about $e\n
\$e=$e;\$n=$n;sub f{\$a++;\$a*=\$_ for 1..shift;\$a?\$a:1}\$m=q[$m];\n$m
EOB];
$e+=1/f $n++;print<<"EOB"
#!/usr/bin/perl\n# The natural constant e is about $e\n
\$e=$e;\$n=$n;sub f{\$a++;\$a*=\$_ for 1..shift;\$a?\$a:1}\$m=q[$m];\n$m
EOB