Problem: Dr. Jimbo, an applied mathematician, needs to calculate matrices all day for solving his own problems. In his laboratory, he uses an excellent application program for manipulating matrix expressions, however, he cannot use it outside his laboratory because the software consumes much of resources. He wants to manipulate matrices outside, so he needs a small program similar to the excellent application for his handheld computer.

Your job is to provide him a program that computes expressions of matrices.

Expressions of matrices are described in a simple language. Its syntax is shown in Table J.1. Note that even a space and a newline have meaningful roles in the syntax.

<image>

The start symbol of this syntax is program that is defined as a sequence of assignments in Table J.1. Each assignment has a variable on the left hand side of an equal symbol ("=") and an expression of matrices on the right hand side followed by a period and a newline (NL). It denotes an assignment of the value of the expression to the variable. The variable (var in Table J.1) is indicated by an uppercase Roman letter. The value of the expression (expr) is a matrix or a scalar, whose elements are integers. Here, a scalar integer and a 1 × 1 matrix whose only element is the same integer can be used interchangeably.

An expression is one or more terms connected by "+" or "-" symbols. A term is one or more factors connected by "*" symbol. These operators ("+", "-", "*") are left associative.

A factor is either a primary expression (primary) or a "-" symbol followed by a factor. This unary operator "-" is right associative.

The meaning of operators are the same as those in the ordinary arithmetic on matrices: Denoting matrices by A and B, A + B, A - B, A * B, and -A are defined as the matrix sum, difference, product, and negation. The sizes of A and B should be the same for addition and subtraction. The number of columns of A and the number of rows of B should be the same for multiplication.

Note that all the operators +, -, * and unary - represent computations of addition, subtraction, multiplication and negation modulo M = 215 = 32768, respectively. Thus all the values are nonnegative integers between 0 and 32767, inclusive. For example, the result of an expression 2 - 3 should be 32767, instead of -1.

inum is a non-negative decimal integer less than M.

var represents the matrix that is assigned to the variable var in the most recent preceding assignment statement of the same variable.

matrix represents a mathematical matrix similar to a 2-dimensional array whose elements are integers. It is denoted by a row-seq with a pair of enclosing square brackets. row-seq represents a sequence of rows, adjacent two of which are separated by a semicolon. row represents a sequence of expressions, adjacent two of which are separated by a space character.

For example, [1 2 3;4 5 6] represents a matrix <image>. The first row has three integers separated by two space characters, i.e. "1 2 3". The second row has three integers, i.e. "4 5 6". Here, the row-seq consists of the two rows separated by a semicolon. The matrix is denoted by the row-seq with a pair of square brackets.

Note that elements of a row may be matrices again. Thus the nested representation of a matrix may appear. The number of rows of the value of each expression of a row should be the same, and the number of columns of the value of each row of a row-seq should be the same.

For example, a matrix represented by


[[1 2 3;4 5 6] [7 8;9 10] [11;12];13 14 15 16 17 18]


is <image> The sizes of matrices should be consistent, as mentioned above, in order to form a well-formed matrix as the result. For example, [[1 2;3 4] [5;6;7];6 7 8] is not consistent since the first row "[1 2;3 4] [5;6;7]" has two matrices (2 × 2 and 3 × 1) whose numbers of rows are different. [1 2;3 4 5] is not consistent since the number of columns of two rows are different.

The multiplication of 1 × 1 matrix and m × n matrix is well-defined for arbitrary m > 0 and n > 0, since a 1 × 1 matrices can be regarded as a scalar integer. For example, 2*[1 2;3 4] and [1 2;3 4]*3 represent the products of a scalar and a matrix <image> and <image>. [2]*[1 2;3 4] and [1 2;3 4]*[3] are also well-defined similarly.

An indexed-primary is a primary expression followed by two expressions as indices. The first index is 1 × k integer matrix denoted by (i1 i2 ... ik), and the second index is 1 × l integer matrix denoted by (j1 j2 ... jl). The two indices specify the submatrix extracted from the matrix which is the value of the preceding primary expression. The size of the submatrix is k × l and whose (a, b)-element is the (ia, jb)-element of the value of the preceding primary expression. The way of indexing is one-origin, i.e., the first element is indexed by 1.

For example, the value of ([1 2;3 4]+[3 0;0 2])([1],[2]) is equal to 2, since the value of its primary expression is a matrix [4 2;3 6], and the first index [1] and the second [2] indicate the (1, 2)-element of the matrix. The same integer may appear twice or more in an index matrix, e.g., the first index matrix of an expression [1 2;3 4]([2 1 1],[2 1]) is [2 1 1], which has two 1's. Its value is <image>.

A transposed-primary is a primary expression followed by a single quote symbol ("'"), which indicates the transpose operation. The transposed matrix of an m × n matrix A = (aij) (i = 1, ..., m and j = 1, ... , n) is the n × m matrix B = (bij) (i = 1, ... , n and j = 1, ... , m), where bij = aji. For example, the value of [1 2;3 4]' is <image>.



Input

The input consists of multiple datasets, followed by a line containing a zero. Each dataset has the following format.

n
program


n is a positive integer, which is followed by a program that is a sequence of single or multiple lines each of which is an assignment statement whose syntax is defined in Table J.1. n indicates the number of the assignment statements in the program. All the values of vars are undefined at the beginning of a program.

You can assume the following:

* 1 ≤ n ≤ 10,
* the number of characters in a line does not exceed 80 (excluding a newline),
* there are no syntax errors and semantic errors (e.g., reference of undefined var),
* the number of rows of matrices appearing in the computations does not exceed 100, and
* the number of columns of matrices appearing in the computations does not exceed 100.

Output

For each dataset, the value of the expression of each assignment statement of the program should be printed in the same order. All the values should be printed as non-negative integers less than M.

When the value is an m × n matrix A = (aij) (i = 1, ... ,m and j = 1, ... , n), m lines should be printed. In the k-th line (1 ≤ k ≤ m), integers of the k-th row, i.e., ak1, ... , akn, should be printed separated by a space.

After the last value of a dataset is printed, a line containing five minus symbols '-----' should be printed for human readability.

The output should not contain any other extra characters.

Example

Input

1
A=[1 2 3;4 5 6].
1
A=[[1 2 3;4 5 6] [7 8;9 10] [11;12];13 14 15 16 17 18].
3
B=[3 -2 1;-9 8 7].
C=([1 2 3;4 5 6]+B)(2,3).
D=([1 2 3;4 5 6]+B)([1 2],[2 3]).
5
A=2*[1 2;-3 4]'.
B=A([2 1 2],[2 1]).
A=[1 2;3 4]*3.
A=[2]*[1 2;3 4].
A=[1 2;3 4]*[3].
2
A=[11 12 13;0 22 23;0 0 33].
A=[A A';--A''' A].
2
A=[1 -1 1;1 1 -1;-1 1 1]*3.
A=[A -A+-A;-A'([3 2 1],[3 2 1]) -A'].
1
A=1([1 1 1],[1 1 1 1]).
3
A=[1 2 -3;4 -5 6;-7 8 9].
B=A([3 1 2],[2 1 3]).
C=A*B-B*A+-A*-B-B*-A.
3
A=[1 2 3 4 5].
B=A'*A.
C=B([1 5],[5 1]).
3
A=[-11 12 13;21 -22 23;31 32 -33].
B=[1 0 0;0 1 0;0 0 1].
C=[(A-B) (A+B)*B (A+B)*(B-A)([1 1 1],[3 2 1]) [1 2 3;2 1 1;-1 2 1]*(A-B)].
3
A=[11 12 13;0 22 23;0 0 33].
B=[1 2].
C=------A((((B))),B)(B,B)''''''.
2
A=1+[2]+[[3]]+[[[4]]]+2*[[[[5]]]]*3.
B=[(-[([(-A)]+-A)])].
8
A=[1 2;3 4].
B=[A A+[1 1;0 1]*4;A+[1 1;0 1]'*8 A+[1 1;0 1]''*12].
C=B([1],[1]).
C=B([1],[1 2 3 4]).
C=B([1 2 3 4],[1]).
C=B([2 3],[2 3]).
A=[1 2;1 2].
D=(A*-A+-A)'(A'(1,[1 2]),A'(2,[1 2])).
0


Output

1 2 3
4 5 6
-----
1 2 3 7 8 11
4 5 6 9 10 12
13 14 15 16 17 18
-----
3 32766 1
32759 8 7
13
0 4
13 13
-----
2 32762
4 8
8 4
32762 2
8 4
3 6
9 12
2 4
6 8
3 6
9 12
-----
11 12 13
0 22 23
0 0 33
11 12 13 11 0 0
0 22 23 12 22 0
0 0 33 13 23 33
11 0 0 11 12 13
12 22 0 0 22 23
13 23 33 0 0 33
-----
3 32765 3
3 3 32765
32765 3 3
3 32765 3 32762 6 32762
3 3 32765 32762 32762 6
32765 3 3 6 32762 32762
32765 3 32765 32765 32765 3
32765 32765 3 3 32765 32765
3 32765 32765 32765 3 32765
-----
1 1 1 1
1 1 1 1
1 1 1 1
-----
1 2 32765
4 32763 6
32761 8 9
8 32761 9
2 1 32765
32763 4 6
54 32734 32738
32752 32750 174
32598 186 32702
-----
1 2 3 4 5
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25
5 1
25 5
-----
32757 12 13
21 32746 23
31 32 32735
1 0 0
0 1 0
0 0 1
32756 12 13 32758 12 13 32573 32588 180 123 62 32725
21 32745 23 21 32747 23 32469 32492 276 28 33 15
31 32 32734 31 32 32736 32365 32396 372 85 32742 32767
-----
11 12 13
0 22 23
0 0 33
1 2
11 12
0 22
-----
40
80
-----
1 2
3 4
1 2 5 6
3 4 3 8
9 2 13 14
11 12 3 16
1
1 2 5 6
1
3
9
11
4 3
2 13
1 2
1 2
32764 32764
32764 32764
-----

Solution (in CPP):

Solution:
#include <cctype>
#include <iostream>
#include <stdexcept>
#include <string>
#include <vector>

using namespace std;

void my_assert(bool condition, const char *message) {
    if (!condition) {
        throw std::logic_error(message);
    }
}

void my_assert(const char *message) {
    return my_assert(false, message);
}

template <typename T>
class Matrix {
    private:
        unsigned h_, w_;
        T *a_;
    public:
        Matrix(): h_(0), w_(0), a_(new T[0]) {}
        Matrix(unsigned height, unsigned width):
        h_(height), w_(width), a_(new T[h_ * w_]) {}
        Matrix(const Matrix &m): h_(m.h_), w_(m.w_), a_(new T[h_ * w_]) {
            for (unsigned i = 0; i < h_ * w_; ++i) {
                a_[i] = m.a_[i];
            }
        }
        virtual ~Matrix() {
            delete[] a_;
        }
        unsigned height() const {
            return h_;
        }
        unsigned width() const {
            return w_;
        }
        T &operator()(unsigned i, unsigned j) {
            my_assert(i < h_ && j < w_, "cannot access");
            return a_[i * w_ + j];
        }
        T &operator()(unsigned i, unsigned j) const {
            my_assert(i < h_ && j < w_, "cannot access");
            return a_[i * w_ + j];
        }
        Matrix operator+() const {
            return *this;
        }
        Matrix operator-() const {
            Matrix retval(h_, w_);
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    retval(i, j) = -(*this)(i, j);
                }
            }
            return retval;
        }
        Matrix operator+(const Matrix &m) const {
            my_assert(h_ == m.h_ && w_ == m.w_, "two matrix sizes differ");
            Matrix retval(m.h_, m.w_);
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    retval(i, j) = (*this)(i, j) + m(i, j);
                }
            }
            return retval;
        }
        Matrix operator+=(const Matrix &m) {
            my_assert(h_ == m.h_ && w_ == m.w_, "two matrix sizes differ");
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    (*this)(i, j) += m(i, j);
                }
            }
            return *this;
        }
        Matrix operator-(const Matrix &m) const {
            my_assert(h_ == m.h_ && w_ == m.w_, "two matrix sizes differ");
            Matrix retval(m.h_, m.w_);
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    retval(i, j) = (*this)(i, j) - m(i, j);
                }
            }
            return retval;
        }
        Matrix operator-=(const Matrix &m) {
            my_assert(h_ == m.h_ && w_ == m.w_, "two matrix sizes differ");
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    (*this)(i, j) -= m(i, j);
                }
            }
            return *this;
        }
        Matrix operator*(const Matrix &m) const {
            if (h_ * w_ == 1) {
                Matrix retval(m.h_, m.w_);
                for (unsigned i = 0; i < m.h_; ++i) {
                    for (unsigned j = 0; j < m.w_; ++j) {
                        retval(i, j) = (*this)(0, 0) * m(i, j);
                    }
                }
                return retval;
            } else if (m.h_ * m.w_ == 1) {
                return m * *this;
            } else {
                my_assert(w_ == m.h_, "width of left differs from height of right");
                Matrix retval(h_, m.w_);
                for (unsigned i = 0; i < h_; ++i) {
                    for (unsigned j = 0; j < m.w_; ++j) {
                        retval(i, j) = T();
                        for (unsigned k = 0; k < w_; ++k) {
                            retval(i, j) += (*this)(i, k) * m(k, j);
                        }
                    }
                }
                return retval;
            }
        }
        Matrix operator*=(const Matrix &m) {
            *this = *this * m;
            return *this;
        }
        Matrix &operator=(const Matrix &m) {
            if (h_ != m.h_ || w_ != m.w_) {
                delete[] a_;
                a_ = new T[m.h_ * m.w_];
            }
            h_ = m.h_;
            w_ = m.w_;
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    (*this)(i, j) = m(i, j);
                }
            }
            return *this;
        }
        Matrix trans() {
            Matrix retval(w_, h_);
            for (unsigned i = 0; i < h_; ++i) {
                for (unsigned j = 0; j < w_; ++j) {
                    retval(j, i) = (*this)(i, j);
                }
            }
            return retval;
        }
};

template <unsigned M>
class Mod {
    private:
        unsigned x_;
        unsigned f(int x) const {
            return  x < 0? (M - (-x) % M) % M: x % M;
        }
    public:
        Mod(): x_(0) {}
        Mod(int x): x_(f(x)) {}
        Mod(const Mod &m): x_(m.x_) {}
        Mod operator+() {
            return *this;
        }
        Mod operator-() {
            return Mod(-int(x_));
        }
        Mod &operator=(const Mod &m) {
            x_ = m.x_;
            return *this;
        }
        Mod operator+(const Mod &m) const {
            return f(x_ + m.x_);
        }
        Mod &operator+=(const Mod &m) {
            *this = *this + m;
            return *this;
        }
        Mod operator-(const Mod &m) const {
            return f(x_ - m.x_);
        }
        Mod &operator-=(const Mod &m) {
            *this = *this - m;
            return *this;
        }
        Mod operator*(const Mod &m) const {
            return f(x_ * m.x_);
        }
        Mod &operator*=(const Mod &m) {
            *this = *this * m;
            return *this;
        }
        operator int() const {
            return x_;
        }
};

typedef Mod<32768> Int;
typedef Matrix<Int> M;

M join_top_bottom(const M &top, const M &bottom) {
    my_assert(top.width() == bottom.width(), "widths of matrices differ");
    M retval(top.height() + bottom.height(), top.width());
    for (unsigned i = 0; i < retval.height(); ++i) {
        for (unsigned j = 0; j < retval.width(); ++j) {
            retval(i, j) = (i < top.height()? top(i, j): bottom(i - top.height(), j));
        }
    }
    return retval;
}

M join_left_right(const M &left, const M &right) {
    my_assert(left.height() == right.height(), "heights of matrices differ");
    M retval(left.height(), left.width() + right.width());
    for (unsigned i = 0; i < retval.height(); ++i) {
        for (unsigned j = 0; j < retval.width(); ++j) {
            retval(i, j) = (j < left.width()? left(i, j): right(i, j - left.width()));
        }
    }
    return retval;
}

M indexed_primary(const M &m, const M &first, const M &second) {
    my_assert(first.height() == 1 && second.height() == 1, "invalid index matrix");
    M retval(first.width(), second.width());
    for (size_t i = 0; i < retval.height(); ++i) {
        for (size_t j = 0; j < retval.width(); ++j) {
            retval(i, j) = m(first(0, i) - Int(1), second(0, j) - Int(1));
        }
    }
    return retval;
}

void print_matrix(const M &m) {
    for (unsigned i = 0; i < m.height(); ++i) {
        for (unsigned j = 0; j < m.width(); ++j) {
            cout << m(i, j);
            j < m.width() - 1? cout << " ": cout << endl;
        }
    }
}

class Solver {
    private:
        M vars_[26];
        M inum(const string &line, size_t &cur, const size_t end) {
            my_assert(isdigit(line[cur]), "invalid char (inum)");
            M m(1, 1);
            m(0, 0) = 0;
            while (isdigit(line[cur])) {
                m(0, 0) = 10 * m(0, 0) + (line[cur] - '0');
                ++cur;
            }
            return m;
        }
        M row(const string &line, size_t &cur, const size_t end) {
            M m;
            m = expr(line, cur, end);
            while (cur < end) {
                if (line[cur] != ' ') {
                    break;
                }
                ++cur;
                m = join_left_right(m, expr(line, cur, end));
            }
            return m;
        }
        M matrix(const string &line, size_t &cur, const size_t end) {
            my_assert(line[cur] == '[', "invalid begin (matrix)");
            M m;
            ++cur;
            m = row(line, cur, end);
            while (cur < end) {
                if (line[cur] == ']') {
                    break;
                }
                my_assert(line[cur] == ';', "invalid row-seq end (matrix)");
                ++cur;
                m = join_top_bottom(m, row(line, cur, end));
            }
            my_assert(line[cur] == ']', "invalid end (matrix)");
            ++cur;
            return m;
        }
        M primary(const string &line, size_t &cur, const size_t end) {
            M m;
            if (isdigit(line[cur])) {
                m = inum(line, cur, end);
            } else if (isupper(line[cur])) {
                m = vars_[line[cur] - 'A'];
                ++cur;
            } else if (line[cur] == '[') {
                m = matrix(line, cur, end);
            } else if (line[cur] == '(') {
                ++cur;
                m = expr(line, cur, end);
                my_assert(line[cur] == ')', "invalid expr end (primary)");
                ++cur;
            } else {
                my_assert("invalid char (primary)");
            }
            while (cur < end) {
                M first, second;
                bool is_trans = false;
                while (line[cur] == '\'') {
                    is_trans = !is_trans;
                    ++cur;
                }
                if (is_trans) {
                    m = m.trans();
                }
                if (line[cur] == '(') {
                    ++cur;
                    first = expr(line, cur, end);
                    my_assert(line[cur] == ',', "invalid char (primary)");
                    ++cur;
                    second = expr(line, cur, end);
                    my_assert(line[cur] == ')', "invalid char (primary)");
                    m = indexed_primary(m, first, second);
                    ++cur;
                }
                if (line[cur] != '\'' && line[cur] != '(') {
                    break;
                }
            }
            return m;
        }
        M factor(const string &line, size_t &cur, const size_t end) {
            bool is_negative = false;
            while (line[cur] == '-') {
                is_negative = !is_negative;
                ++cur;
            }
            return is_negative? -primary(line, cur, end): primary(line, cur, end);
        }
        M term(const string &line, size_t &cur, const size_t end) {
            M m1, m2;
            m1 = factor(line, cur, end);
            while (cur < end) {
                if (line[cur] != '*') {
                    break;
                }
                ++cur;
                M m2 = term(line, cur, end);
                m1 *= m2;
            }
            return m1;
        }
        M expr(const string &line, size_t &cur, const size_t end) {
            M m1, m2;
            m1 = term(line, cur, end);
            while (cur < end) {
                char op = line[cur];
                if (op != '+' && op != '-' && op != '*') {
                    break;
                }
                ++cur;
                m2 = term(line, cur, end);
                switch (op) {
                    case '+':
                        m1 += m2;
                        break;
                    case '-':
                        m1 -= m2;
                        break;
                    case '*':
                        m1 *= m2;
                        break;
                }
            }
            return m1;
        }
    public:
        M &interpret(string &line) {
            size_t cur = 2;
            vars_[line[0] - 'A'] = expr(line, cur, line.length() - 1);
            return vars_[line[0] - 'A'];
        }
};

int main() {
    unsigned n;
    string line;
    Solver s;
    while (true) {
        cin >> n;
        if (n == 0) {
            return 0;
        }
        cin.ignore();
        for (unsigned i = 0; i < n; ++i) {
            getline(cin, line);
            print_matrix(s.interpret(line));
        }
        cout << "-----" << endl;
    }
}