#!/usr/bin/perl -w

# This is the "political-economic script"

print <<EOT;
# A wastes 99 and save 1 per month
# B wastes 98 and save 2 per month
# ...
# Como dice mi madre: "Todo se va a quedar aquí", pero no contaba con el marxismo.  
EOT
;  

$incomeA = $incomeB = 100;  # It doesn't matter at all. Wealth is only accumulated rent from savings. Maybe your grandfather savings.
$rant = 0;
while (1){
    $saveA += 1;
    $saveB += 2;
    $month++;
    $r = $saveA / ($saveA+$saveB);
    if ($r == $rant && $month > 24){
	last;
    }
    print "$month $r percentage of A; total wealth A+B = ",$saveA+$saveB," wealth A=$saveA wealth B=$saveB\n";
    $rant = $r;
}
print "month $month, ", $month/12 , " years\n";

__END__
From: SocialistAbsurdities@outlook.com
  Newsgroups: sci.econ
  Subject: 10% of population "own" 90% of the wealth?
  Date: Sat, 17 Jun 2017 06:39:27 -0000 (UTC)
  Organization: Socialist Absurdities.
  Lines: 10
  Message-ID: <oi2iqv$gdv$1@dont-email.me>
  Injection-Date: Sat, 17 Jun 2017 06:39:27 -0000 (UTC)
  Injection-Info: mx02.eternal-september.org; posting-host="dc5b250eeac61313756bfb761e6e69a7";
logging-data="16831"; mail-complaints-to="abuse@eternal-september.org";posting-account="U2FsdGVkX1+YOaMeNKnKWep12hLELmr0muDl/boBeps="
  Cancel-Lock: sha1:mB9ETENb5bp4o0Fu/VHTDDM4tqs=
  Xref: aioe.org sci.econ:83894
  
It's been a few decades since I used the log-book to make such
  calculations, but I'll check your formular and figures which
  will show how fast, and without injustice the one of two brothers
  gets to own 90% of the family wealth under the following conditions:-
  
The two brothers start by each owning $1 of the
   family's total 2$ wealth.
  A earns $100 per month and saves $1.
  B earns $101 per month and spends $1 less than A.