Select Code to Download

#!perl -w
use strict;
...
print "Numerified with a=$var{a}: " . (0+$result) . "\n";
$var{a} = 25;
print "Numerified with a=$var{a}: " . (0+$result) . "\n";

Line 86 "·a+sumsq(3,2+2)*sqrt(36)/2"
Line 88 "a·+sumsq(3,2+2)*sqrt(36)/2" value=a
...
Stringified: sum(a, div(mul(sumsq(3, sum(2, 2)), sqrt(36)), 2))
Numerified with a=101: 176
Numerified with a=25: 100