From 192430a6c7de2740ce57369c5cc48c38134c9bc1 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Tue, 24 Jan 2017 10:40:21 +0100
Subject: [PATCH] (^) returns GWord _always_

---
 src/automorphism_groups.jl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/automorphism_groups.jl b/src/automorphism_groups.jl
index e214c44..7ad0a9f 100644
--- a/src/automorphism_groups.jl
+++ b/src/automorphism_groups.jl
@@ -1,5 +1,6 @@
 using Permutations
 
+import Base: convert
 export AutSymbol, AutWord, rmul_AutSymbol, lmul_AutSymbol, flip_AutSymbol, symmetric_AutSymbol
 
 immutable AutSymbol <: GSymbol
@@ -37,7 +38,6 @@ function change_pow(s::AutSymbol, n::Int)
 end
 
 inv(f::AutSymbol) = change_pow(f, -1*f.pow)
-(^)(s::AutSymbol, n::Integer) = change_pow(s, s.pow*n)
 
 function rmul_AutSymbol(i,j; pow::Int=1)
     gen = string('ϱ',Char(8320+i), Char(8320+j)...)
@@ -76,6 +76,8 @@ end
 
 typealias AutWord GWord{AutSymbol}
 
+convert(::Type{AutWord}, s::AutSymbol) = GWord(s)
+
 function simplify_perms!(W::AutWord)
     reduced = true
     for i in 1:length(W.symbols) - 1