#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
$arglist = $ENV{'QUERY_STRING'};
if ($arglist eq "")
{
print <<"FullForm";
Armey/Forbes/Gramm Flat Tax Proposals
Armey/Forbes/Gramm Flat Tax Proposals
For more information visit the
Flat Tax Home Page.
The Armey proposal is a single flat rate for everyone, and the
elimination of all deductions, (like home mortgage interest for
example!) The rate would be 17% and the standard deductions would
be raised accordingly. (Single \$11,300; Head of Household \$14,850;
Married Filing Jointly \$22,700; Children Allowance \$5,300 each).
The deductions were reduced to keep the plan revenue neutral.
There would be no direct personal income tax on interest, dividends or
capital gains.
(Look here for
more on how these will be taxed indirectly).
A big proponent is Steve Forbes
though his proposal is slightly different.
You can see his
views on the flat tax This calculator now calculates HIS proposed
tax as well. From Newsweek I am taking his numbers to be a
\$26,200 exemption for marrieds, with a \$5,300 per child exemption
(that would be \$13,100 for singles I am assuming).
Phil Gramm wants to use a 16% rate with lower exemptions (\$22,000
Married, \$11,000 Single, \$5,000 per dependent), but
maintaining deductions for mortgage interest and charitable
contributions. Then he wants to index the capital gains to
inflation before taxing them.
Well, since I can't figure out everyone's indexed capital gains, I have
left that part out of the calculation (i.e. no indexing). So I leave
capital gains and non-wage income as just additional income to tax.
I made up this form to compare the changes
for my own income/deduction combination and thought I would write it
up as a HTML form. For more information on current taxes, see the
U.S. Department of the Treasury This form uses the 1995 tax
schedule. For details on the 1995 tax rates,
look here
You may also like to look at the links to other financial related
sites at
Centre Square.
Opinions? Vote at the VOTELINK
site and express what you think about the flat tax idea.
FullForm
}
else
{
print "Income Tax Comparisons";
print "Income Tax Comparisons
";
@f = split("&",$arglist);
for ($i=0; $i<=$#f; $i++)
{
($key,$val) = split("=",@f[$i]);
$val =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;
$val =~ s/[ ,\$]//g;
if ($key =~ /in/) { $wage = $val; }
if ($key =~ /ty/) { $ty = $val; }
if ($key =~ /ch/) { $kids = $val; }
if ($key =~ /nw/) { $nwag = $val; }
if ($key =~ /cg/) { $gain = $val; }
if ($key =~ /id/) { $ided = $val; }
if ($key =~ /mc/) { $mort = $val; }
if ($key =~ /fr/) { $frat = $val; }
}
$forbesd = 13100; $typ = "Single"; $grammd = 11000;
@prc = (0.15,0.28,0.31,0.36,0.396); $armeyd = 11350;
@lim = (0,23350,56550,117950,256500); $self = 2500; $stat = "A";
if ($ty =~ /Household/) {
$stat = "B"; $stdd = 17200; $typ = "Head of Household";
@lim = (0,31250,80750,130800,256500); $self = 2500; $armeyd = 14850;
}
if ($ty =~ /Jointly/) {
$stat = "C"; $stdd = 26200; $typ = "Married filing jointly";
@lim = (0,39000,94250,143600,256500); $self = 5000; $armeyd = 22700;
$forbesd = 26200; $grammd = 22000;
}
if ($ty =~ /Seperately/) {
$stat = "D"; $stdd = 13100; $typ = "Married filing seperately";
@lim = (0,19500,47125,71800,128250); $self = 2500; $armeyd = 22700;
$forbesd = 26200; $grammd = 22000;
}
$exem = $kids * 5300;
$gexem = $kids * 5000;
$lim = $armeyd + $exem;
$tax = ($wage - $lim) * $frat/100;
$forbes_tax = ($wage - $exem - $forbesd) * $frat/100;
$grat = $frat - 1;
$gramm_tax = ($wage + $nwag + $gain - $gexem - $grammd - $mort) * $grat/100;
if ($tax < 0) { $tax = 0; }
if ($forbes_tax < 0) { $forbes_tax = 0; }
if ($gramm_tax < 0) { $gramm_tax = 0; }
print "With the following parameters:\n";
print "
Wage Income = \$ $wage \n";
print " Filing Status = $typ \n";
print " Number of Dependents = $kids \n\n";
print " Armey Flat Tax Standard Deduction = \$ $armeyd \n";
print " Forbes Flat Tax Standard Deduction = \$ $forbesd \n";
print " Gramm Flat Tax Standard Deduction = \$ $grammd \n";
print " Armey/Forbes Tax Exemptions = \$ $exem \n";
print " Gramm Tax Exemptions = \$ $gexem \n";
print " Mortgage/Charity Deduction = \$ $mort (Affects
Gramm only)\n";
print " Armey/Forbes Flat Tax Rate = $frat %\n";
print " Gramm Flat Tax Rate = $grat %
\n";
printf ("Only income above \$ %9.2f would be taxed (Armey)
\n",
$lim);
printf ("Your Armey Flat Tax would be: \$ %9.2f
\n",$tax);
print "
\n";
printf ("Only income above \$ %9.2f would be taxed (Forbes)
\n",
$forbesd + $exem);
printf ("Your Forbes Flat Tax would be: \$ %9.2f
\n",$forbes_tax);
print "
\n";
printf ("Only income above \$ %9.2f would be taxed (Gramm)
\n",
$grammd + $gexem + $mort);
printf ("Your Gramm Flat Tax would be: \$ %9.2f
\n",$gramm_tax);
# Now for the Current Tax Law
print "
\n";
if ($ided + $mort < 1)
{
$ided = 3900; $mort = 0;
if ($stat eq "B") { $ided = 5750; }
if ($stat eq "C") { $ided = 6550; }
if ($stat eq "D") { $ided = 3275; }
print "Since you gave no itemized deductions, your standard ";
print "deduction of \$ $ided was used.\n";
}
$gross = $wage + $nwag + $gain;
$allow = 2500 * $kids + $self; $ided = $ided + $mort;
$ti = $gross - $ided - $allow;
$tt = $ti; $ct = 0; $rate = 0;
for ($i=4; $i>=0; $i--)
{
if ($ti > @lim[$i])
{
$tt = $tt - @lim[$i];
$ct = $ct + @prc[$i] * $tt;
$tt = @lim[$i];
if ($rate == 0) { $rate = @prc[$i] * 100; }
}
}
print "Under Current Taxation Laws:
\n";
print " Gross Income = \$ $gross \n";
print " Deductions = \$ $ided \n";
print " Exemptions = \$ $allow (\$2500/person incl. self for 1995) \n";
print " Taxable Income = \$ $ti \n";
print " Tax Bracket = $rate \% \n";
printf ("Your current income tax is \$ %9.2f\n",$ct);
print "
For more information visit the ";
print "";
print "Flat Tax Home Page.\n";
print<Opinion? Express them at VOTELINK
VoteLink
}