sub progressbar {
	$a=$_[0];
	if($a<0) {
		for($s=0;$s<-$a/10000;$s++) {
			print " ";	
		}	
		print "                                \r";	
	}
	if($a%10000==0) {
		$seq="";
		for($s=0;$s<$a/10000;$s++) {
			$seq.="►";	
		}
		if(($a/10000)%2==0) { print "  ✖ Crunching ".$seq."\r"; }
		if(($a/10000)%2==1) { print "  ✚ Crunching ".$seq."\r"; }
	}
	
}