#!/usr/bin/perl

# In the song "The 12 Days of Christmas,"
# how many gifts, total, did my true love give to me?


for ($day=1; $day<=12; $day++)
{

if ($day>=1){$partridges+=1};
if ($day>=2){$turtledoves+=2};
if ($day>=3){$frenchhens+=3};
if ($day>=4){$callingbirds+=4};
if ($day>=5){$goldenrings+=5};
if ($day>=6){$geesealaying+=6};
if ($day>=7){$swans+=7};
if ($day>=8){$maids+=8};
if ($day>=9){$drummers+=9};
if ($day>=10){$lords+=10}; 
if ($day>=11){$ladies+=11};
if ($day>=12){$pipers+=12};

        $newgifts = $day;
        $totalgifts += ($newgifts + $repeatgifts);

                $repeatgifts += $newgifts;
}

print "After 12 days of Christmas, my true love had given me ";
print "$totalgifts gifts \n";

print "$partridges partridges\n";
print "$turtledoves turtle doves\n";
print "$frenchhens French hens\n";
print "$callingbirds calling birds\n";
print "$goldenrings gol-den rings!\n";      
print "$geesealaying geese a-laying\n";
print "$swans swans a-swimming\n";
print "$maids maids a-milking\n";
print "$drummers drummers drumming\n";
print "$ladies ladies leaping\n";
print "$lords lords a-dancing\n";
print "$pipers pipers piping\n";