#!/usr/local/bin/perl
use strict;
use warnings;
use YAML;
use Data::Dumper;
my $n=1;
print "DATA[",$n++,"]:$_" for <DATA>;
print Dumper(\%ENV);
print YAML::Dump(\%INC);
use Test::More 'no_plan';
is(1,1);
is(1,0);
__DATA__
use this instead of STDIN
like this.

(defvar inputs (list 1 2 6 8 28 46))
 
(defun perfectNumberFunctional (number)
  (= number 
     (loop for x from 1 below number 
          when (= 0 
              (mod number x)) 
               sum x)))
 
(defun perfectNumberImperative (number)
   (defvar sum 0)
   (setq sum 0)
   (loop 
     for x from 1 to (- number 1)
     when ( = 0 (mod number x) )
     do (setq sum (+ sum x))
   )
   (= sum number)
)
 
(format t "* Imperative *~%")
(dolist (x inputs) 
    (princ x)
    (princ " is")
    (if (perfectNumberImperative x) (princ "") (princ " NOT"))
    (princ " Perfect ")
    (format t "~%")
)