Select Code to Download

(defun sum_from_to(TERM from NEXT to)
    (IF (> from to)
...

(print (sum-int 3 5))
(print (sum-sq 3 5))

#!/usr/bin/perl
use strict; use warnings; use feature qw(say);
...

say sum_int(3,5);
say sum_sq(3,5);