Select Code to Download

(DEFINE (SUM TERM A NEXT B)
        (IF (> A B)
...
(SUM-INT 3 5)

(SUM-SQ 3 5)

#!/usr/bin/perl
use warnings;
...
print sumint(3,5) . "\n";
#a sum of squares from 3-5
print sumsq(3,5) . "\n";