Squares

        # VALUES OF BEETA GIVE RISE TO DOM
        sub square_b {
          my $fOOooO = abs(shift())<<1;
          my $BarRRr = $fOOooO-++$fOOooO;
          $BarRRr += $fOOooO until ($fOOooO -= 2) <= 0;
          return $BarRRr;
        }

• It passes all the tests, but that doesn't prove anything