diff --git a/SAutFNs.jl b/SAutFNs.jl
index c467b24..32e0c6a 100644
--- a/SAutFNs.jl
+++ b/SAutFNs.jl
@@ -72,7 +72,9 @@ end
 
 function groupname(parsed_args)
    N = parsed_args["N"]
-   return "oSAutF$(N)", N
+   return groupname(N), N
 end
 
+groupname(N::Int) = "oSAutF$(N)"
+
 end # of module SAutFNs
diff --git a/SLNs.jl b/SLNs.jl
index 322f534..d288505 100644
--- a/SLNs.jl
+++ b/SLNs.jl
@@ -105,17 +105,20 @@ function groupname(parsed_args)
    p = parsed_args["p"]
    X = parsed_args["X"]
 
-   if p == 0
-      if X
-         name = "oSL$(N)Z⟨X⟩"
-      else
-         name = "oSL$(N)Z"
-      end
-   else
-      name = "oSL$(N)_$p"
-   end
+   return groupname(N, p, X), N
+end
 
-   return name, N
+function groupname(N, p=0, X=false)
+    if p == 0
+       if X
+          name = "oSL$(N)Z⟨X⟩"
+       else
+          name = "oSL$(N)Z"
+       end
+    else
+       name = "oSL$(N)_$p"
+    end
+    return name
 end
 
 end # of module SLNs