diff --git a/00_Utilities/yatol.pl b/00_Utilities/yatol.pl
old mode 100644
new mode 100755
index 136c3d67..0f4ef111
--- a/00_Utilities/yatol.pl
+++ b/00_Utilities/yatol.pl
@@ -2,21 +2,24 @@
 #YATOL: Yet Another TOdo List
 use strict;
 
-#REM: Get list of basic files ordered by number or lines.
+#REM: Get list of basic files ordered by number of lines.
 #REM: This way you can do the easier ones first.
 my @Ret=`find .. -iname '*.bas' -exec wc -l \{\} \\; | sort -h`;
 
 
 my @Langs= qw(PL JS VB PAS RB C# JAVA PY);
 my @Dirs= qw(perl javascript vbnet pascal ruby csharp java python);
+my %Sum;
 
-print " "x 25 ."LINES\t";
+print " "x 25 ."BAS\t";
 foreach my $Dir (@Langs) {
 	print "$Dir\t";
 	}	
 print "\n";
 
+my $Count;
 foreach my $Lin (@Ret) {
+	$Count++;
 	chomp $Lin;
 	my ($Num, $File)= split (" ", $Lin);
 	my @Parts= split(/\//, $File);
@@ -28,9 +31,25 @@ foreach my $Lin (@Ret) {
 	foreach my $Dir (@Dirs) {
 		my $Path= "../$Base/$Dir/";
 		my $Ret= `ls $Path | wc -l`;
-		if ($Ret>1) { print "YES"; }
+		if ($Ret>1) { print "YES"; $Sum{$Dir}++; }
 			else { print "  ";}
 		print "\t";
 		}
 	print "\n";
+	
 	}
+
+print "\t\tFILES:\t\t";
+foreach my $Dir (@Dirs) {
+	print "$Sum{$Dir}\t";
+	}
+print "\n";
+
+
+print "\t\tADVANCE:\t";
+foreach my $Dir (@Dirs) {
+	my $Per= int($Sum{$Dir}/$Count*100)."%";
+	print "$Per\t";
+	}
+print "\n";
+