better show

src/new_autgroups.jl

@@ -97,9 +97,11 @@ end
 
 # eye-candy
 
-Base.show(io::IO, ::Type{<:FPGroupElement{<:AutomorphismGroup{T}}}) where {T<:FreeGroup} =
+Base.show(io::IO, ::Type{<:FPGroupElement{<:AutomorphismGroup{T}}}) where {T} =
     print(io, "Automorphism{$T,…}")
 
+Base.show(io::IO, A::AutomorphismGroup) = print(io, "automorphism group of ", object(A))
+
 ## Automorphism Evaluation
 
 domain(f::FPGroupElement{<:AutomorphismGroup}) = deepcopy(parent(f).domain)

src/new_types.jl

@@ -180,8 +180,8 @@ end
 
 function Base.show(io::IO, G::FPGroup)
     print(io, "⟨")
-    Base.print_array(io, reshape(gens(G), (1, ngens(G))))
+    join(io, gens(G), ", ")
     print(io, " | ")
-    Base.print_array(io, relations(G))
+    join(io, relations(G), ", ")
     print(io, "⟩")
 end