diff --git a/OrbitDecomposition.jl b/OrbitDecomposition.jl
index f96a410..4ce7530 100644
--- a/OrbitDecomposition.jl
+++ b/OrbitDecomposition.jl
@@ -249,10 +249,7 @@ function Uπ_matrices(P_matrices; orth=orthSVD)
     return U_p_matrices
 end
 
-function main(N::Int)
-   name = "test"
-   # SOutF$(N)_E4
-
+function compute_orbit_data(name::String, N::Int)
    isdir(name) || mkdir(name)
 
    SOutFN = AutGroup(FreeGroup(N), special=true, outer=true)
@@ -302,5 +299,3 @@ function main(N::Int)
 
    save(joinpath(name, "U_pis.jld"), "Uπs", Uπs, "dims", dimensions)
 end
-
-@time main(4)