add leading "o" to groupname in Orbit.jl

Orbit.jl

@@ -20,7 +20,7 @@ function main(GROUP, parsed_args)
    G, S = GROUP.generatingset(parsed_args)
    autS = GROUP.autS(parsed_args)
 
-   name = "$(name)_r$radius"
+   name = "o$(name)_r$radius"
    isdir(name) || mkdir(name)
 
    logger = PropertyT.setup_logging(joinpath(name, "$(upper_bound)"))

SAutFNs.jl

@@ -75,6 +75,6 @@ function groupname(parsed_args)
    return groupname(N), N
 end
 
-groupname(N::Int) = "oSAutF$(N)"
+groupname(N::Int) = "SAutF$(N)"
 
 end # of module SAutFNs

SLNs.jl

@@ -108,15 +108,15 @@ function groupname(parsed_args)
    return groupname(N, p, X), N
 end
 
-function groupname(N, p=0, X=false)
+function groupname(N::Int, p::Int=0, X::Bool=false)
     if p == 0
        if X
-          name = "oSL$(N)Z⟨X⟩"
+          name = "SL$(N)Z⟨X⟩"
        else
-          name = "oSL$(N)Z"
+          name = "SL$(N)Z"
        end
     else
-       name = "oSL$(N)_$p"
+       name = "SL$(N)_$p"
     end
     return name
 end