フィシュ関数のバージョン１ぐらいありますかね？これ？
a[m,kj]n

以下定義(右辺の結合は右優先)
a[1]n=a+a+a+...a
a[2]n=a[1]a[1]a[1]...a
a[m]n=a[m-1]a[m-1]a[m-1]...a
a[m_0,1]n=a[m_0]a[m_0]a[m_0]...a
a[m_0,2]n=a[m_0,1]a[m_0,1]a[m_0,1]...a
a[m_0,m_1]n=a[m_0,m_1-1]a[m_0,m_1-1]a[m_0,m_1-1]...a
a[m_0,m_1,1]n=a[m_0,m_1]a[m_0,m_1]a[m_0,m_1]...a
a[m_0,m_1,2]n=a[m_0,m_1,1]a[m_0,m_1,1]a[m_0,m_1,1]...a
a[m_0,m_1,m_2]n=a[m_0,m_1,m_2-1]a[m_0,m_1,m_2-1]a[m_0,m_1,m_2-1]...a
a[m_0,m_1,m_2,...,m_k]n=a[m_0,m_1,m_2,...,m_k-1]a[m_0,m_1,m_2,...,m_k-1]a[m_0,m_1,m_2,...,m_k-1]...a
a[m:k]n=a[m_0,m_1,m_2,...,m_k]n
a[m:k,1]n=a[m:k]a[m:k]a[m:k]...a
a[m:k,2]n=a[m:k,1]a[m:k,1]a[m:k,1]...a
a[m:k,mm_0]n=a[m:k,mm_0-1]a[m:k,mm_0-1]a[m:k,mm_0-1]...a
a[m:k,mm_0,1]n=a[m:k,mm_0]a[m:k,mm_0]a[m:k,mm_0]...a
a[m:k,mm_0,2]n=a[m:k,mm_0,1]a[m:k,mm_0,1]a[m:k,mm_0,1]...a
a[m:k,mm_0,mm_1]n=a[m:k,mm_0,mm_1-1]a[m:k,mm_0,mm_1-1]a[m:k,mm_0,mm_1-1]...a
a[m:k,mm_0,mm_1,1]n=a[m:k,mm_0,mm_1]a[m:k,mm_0,mm_1]a[m:k,mm_0,mm_1]...a
a[m:k,mm_0,mm_1,2]n=a[m:k,mm_0,mm_1,1]a[m:k,mm_0,mm_1,1]a[m:k,mm_0,mm_1,1]...a
a[m:k,mm_0,mm_1,mm_2]n=a[m:k,mm_0,mm_1,mm_2-1]a[m:k,mm_0,mm_1,mm_2-1]a[m:k,mm_0,mm_1,mm_2-1]...a
a[m:k,mm_0,mm_1,mm_2,...,mm_kk]n=a[m:k,mm_0,mm_1,mm_2,...,mm_kk-1]a[m:k,mm_0,mm_1,mm_2,...,mm_kk-1]a[m:k,mm_0,mm_1,mm_2,...,mm_kk-1]...a