delete length() so the 3d file of the same base name doesn't
fail

Reference: /n/atom/patch/applied2013/createuniq
Date: Sat Jun 15 03:25:56 CES 2013
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/apatch/create	Sat Jun 15 03:25:29 2013
+++ /rc/bin/apatch/create	Sat Jun 15 03:25:30 2013
@@ -128,7 +128,7 @@
 		base = $0
 		sub("/$", "", base)		# already have cleanname
 		sub(".*/", "", base)
-		i = length(a[base]);
+		i = a[base];
 		if(i > 0)
 			print $0 "\t" base "." i
 		else