print "1 - ", ($len), "\n";
print "2 - ", $len , "\n";
print "3 - ", $len1, "\n" ;
print "4 - ", ($len1), "\n";