From 8dfe9ec8f37b63e346a5caa31571ef50632ea468 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Tue, 18 Apr 2017 13:19:04 +0200
Subject: [PATCH] simplify change_pow

---
 src/automorphism_groups.jl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/automorphism_groups.jl b/src/automorphism_groups.jl
index 1014ee5..509cc24 100644
--- a/src/automorphism_groups.jl
+++ b/src/automorphism_groups.jl
@@ -32,9 +32,10 @@ function change_pow(s::AutSymbol, n::Int)
     elseif symbol == :σ
         return symmetric_AutSymbol(s.ex.args[2], pow=n)
     elseif symbol == :ϱ
-        return rmul_AutSymbol(s.ex.args[2], s.ex.args[3], pow=n)
+        s.ex.args[2:end-1]
+        return rmul_AutSymbol(s.ex.args[2:end-1]..., pow=n)
     elseif symbol == :λ
-        return lmul_AutSymbol(s.ex.args[2], s.ex.args[3], pow=n)
+        return lmul_AutSymbol(s.ex.args[2:end-1]..., pow=n)
     elseif symbol == :id
         return s
     else