def to_map
      m = Map.phi
      @perm.each_with_index do |x, i|
        m.append!(i, x)
      end
      m
    end
def to_map
      m = Map.phi
      @perm.each_with_index do |x, i|
        m.append!(i, x)
      end
      m
    end
---------------------------- beta
    def self.load(file)
      s = Group[]
      File.foreach(file) do |line|
	g = eval(line).self
	s.set_unity g unless s.unity
	s.push g
      end
      s
    end
    def self.subgr_load(file)
      s = Set[]
      File.foreach(file) do |line|
	s.push eval(line).collect{|perm| perm.self}.Group
      end
      s
    end
    def conjugate0(g)
      to_Mapa.collect{|pr| [g[pr.first], g[pr.last]]}.Mapa.to_ParmGr
    end
    require "algebra/finite-map"