#!/usr/bin/perl

for ($c=1;$c<=1000;$c++) {
    for ($a=1;$a**2<$c**2;$a++) {
        $b=1000-$a-$c;
#        print "$a $b $c\n";
        if (($a**2 + $b**2)==$c**2) {
            print ($a*$b*$c);
            print "\n";
            $c=1001;
        }
    }
}