Problem: Falling Block Puzzle

Block drop

You are playing a falling block puzzle. As shown in the figure below, the field of this puzzle has a shape in which cubic cells are arranged in 2 squares x 2 squares in each row, and the rows are infinitely arranged on the top.

<image>

Each cell either has one block that fits snugly in the cell, or nothing. This puzzle proceeds as follows.

1. Some blocks are installed in the initial state.
2. Drop a block that fits in 2 squares x 2 squares x 2 squares from above. However, before dropping, the block can be translated horizontally so that the block does not stick out of the field.
3. When the bottom surface of one of the dropped blocks reaches the bottom of the block or field that has already been placed, all the blocks will stop falling and stop.
4. For each stage, if all 4 squares are filled, the blocks in that stage will disappear, and the blocks above it will fall one by one. Even if there are no blocks in the cell below each block after the fall, it will not fall any further.
5. Return to 2.



Since the blocks placed in the initial state and some lumps to be dropped are given, create a program to find out how many steps can be erased by dropping all the lumps in the order given.

Input

The input consists of 100 or less datasets. Each dataset has the following form.

> (Initial block height H) (Number of lumps to drop N)
> (1st stage in the initial state)
> ...
> (H stage in the initial state)
> (1st drop)
> ...
> (Nth drop)

The first line of each dataset specifies the initial block height H (1 ≤ H ≤ 10) and the number of lumps to drop N (1 ≤ N ≤ 3). Then, the information of each stage in the initial state is given in the following format.

> c11 c12
> c21 c22

cij represents the information of each cell,'#' indicates that a block exists, and'.' Indicates that there is no block. It can be assumed that there are no blocks in all cells or no blocks in all cells for each of the first to H rows. Then, the information of each drop mass is given in the following format.

> b111 b112
> b121 b122
> b211 b212
> b221 b222

As in the initial state format,'#' indicates that a block exists, and'.' Indicates that there is no block. Each block contains at least one block. The blocks contained in the block may be touched only by the corners and sides, and are not necessarily connected by the surface.

Refer to the figure below for the correspondence of the input subscripts of the initial state and block block.

<image>

The end of the input is indicated by a single line of two zeros.

The figure below shows the first data set in the Sample Input shown later. In this dataset, one step can be erased by translating a block of blocks diagonally and then dropping them.

<image>

Output

For each dataset, output on one line how many columns can be erased at the maximum.

Sample Input


1 1

..
..
..
..
..
1 1
. #
..
..
..
..
. #
twenty two

..

..
..
. #

..
..
..
..
..
13
..
..












10 3

..

..

. #

. #
..

..

. #

. #

. #
..
. #
..
..
. #
..
. #
..
..
..
..
..
..
..
..
10 3

. #

..

..
. #
..

. #
. #

. #

..


. #
..
. #
..
..
. #
..
..
..
..
..
..
..
..
. #
0 0

Output for Sample Input


1
0
3
6
6
0





Example

Input

1 1
##
#.
..
..
#.
..
1 1
.#
#.
#.
..
..
.#
2 2
##
#.
##
#.
..
.#
##
#.
#.
..
#.
..
1 3
#.
..
##
##
##
##
##
##
##
##
##
##
##
##
10 3
##
#.
##
#.
##
.#
##
.#
#.
##
#.
##
.#
##
.#
##
.#
#.
.#
#.
#.
.#
#.
.#
#.
..
#.
..
#.
..
#.
..
10 3
##
.#
##
..
##
#.
.#
..
##
.#
.#
##
.#
##
#.
##
##
.#
..
.#
#.
#.
.#
#.
#.
#.
#.
..
..
..
..
.#
0 0


Output

1
0
3
6
6
0

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
 
struct Block{
    int b[2][2][2];
 
    void input(){
        string temp;
        for(int i = 0; i < 2; i++){
            for(int j = 0; j < 2; j++){
                cin >> temp;
                for(int k = 0; k < 2; k++){
                    if(temp[k] == '#'){
                        b[i][j][k] = 1;
                    }
                    else{
                        b[i][j][k] = 0;
                    }
                }
            }
        }
    }
 
    bool isOk(int dx, int dy){
        for(int i = 0; i < 2; i++){
            if(dx == -1 && (b[i][0][0] == 1 || b[i][0][1] == 1)){
                return false;
            }
            if(dx == 1 && (b[i][1][0] == 1 || b[i][1][1] == 1)){
                return false;
            }
            if(dy == -1 && (b[i][0][0] == 1 || b[i][1][0] == 1)){
                return false;
            }
            if(dy == 1 && (b[i][0][1] == 1 || b[i][1][1] == 1)){
                return false;
            }
        }
 
        return true;
    }
 
    void slide(int dx, int dy){
 
        int newB[2][2][2];
        memset(newB, 0, sizeof(newB));
        for(int k = 0; k < 2; k++){
            for(int i = 0; i < 2; i++){
                for(int j = 0; j < 2; j++){
                    int tempX = i + dx;
                    int tempY = j + dy;
 
                    if(0 <= tempX && tempX < 2 && 0 <= tempY && tempY < 2){
                        newB[k][tempX][tempY] = b[k][i][j];
                    }
                }
            }
        }
 
        swap(b, newB);
    }
};
 
int calcAll(int N, int cnt, vector<Block>& block, int dx, int dy, int field[20][2][2]){
    if(!block[cnt].isOk(dx, dy)){
        return -10000;
    }
 
    int ret = 0;
 
    Block tempBlock = block[cnt];
    tempBlock.slide(dx, dy);
 
    int lower[2][2];
    for(int i = 0; i < 2; i++){
        for(int j = 0; j < 2; j++){
            if(tempBlock.b[0][i][j] == 1){
                lower[i][j] = 0;
                continue;
            }
            else if(tempBlock.b[1][i][j] == 1){
                lower[i][j] = 1;
            }
            else{
                lower[i][j] = 2;
            }
        }
    }
 
    int upper[2][2];
    for(int i = 0; i < 2; i++){
        for(int j = 0; j < 2; j++){
            for(int k = 19; k >= 0; k--){
                if(field[k][i][j] == 1){
                    upper[i][j] = k;
                    break;
                }
            }
        }
    }
 
    int posH = -10;
    for(int i = 0; i < 2; i++){
        for(int j = 0; j < 2; j++){
            if(lower[i][j] == 2){
                continue;
            }
            int temp = upper[i][j] + 1 - lower[i][j];
            posH = max(posH, temp);
        }
    }
 
    for(int i = 0; i < 2; i++){
        for(int j = 0; j < 2; j++){
            for(int k = 0; k < 2; k++){
                if(tempBlock.b[i][j][k] == 1){
                    int tempH = posH + i;
                    field[tempH][j][k] = tempBlock.b[i][j][k];
                }
            }
        }
    }
 
    vector<bool> isDeleted(20, false);
    for(int i = 1; i < 19; i++){
        bool isOk = true;
        for(int j = 0; j < 2; j++){
            for(int k = 0; k < 2; k++){
                if(field[i][j][k] == 0){
                    isOk = false;
                }
            }
        }
        if(isOk){
            ret++;
            isDeleted[i] = true;
            for(int j = 0; j < 2; j++){
                for(int k = 0; k < 2; k++){
                    field[i][j][k] = 0;
                }
            }
        }
    }
 
    int deleteCnt = 0;
    for(int i = 1; i < 20; i++){
        if(isDeleted[i - 1]){
            deleteCnt++;
        }
        for(int j = 0; j < 2; j++){
            for(int k = 0; k < 2; k++){
                if(deleteCnt > 0){
                    field[i - deleteCnt][j][k] = field[i][j][k];
                    field[i][j][k] = 0;
                }
            }
        }
    }
 
    int maxCnt = 0;
    if(cnt != N - 1){
        for(int ndx = -1; ndx <= 1; ndx++){
            for(int ndy = -1; ndy <= 1; ndy++){
                int nextField[20][2][2];
                memcpy(nextField, field, 20 * 2 * 2 * sizeof(int));
                int temp = calcAll(N, cnt + 1, block, ndx, ndy, nextField);
                maxCnt = max(maxCnt, temp);
            }
        }
    }
 
    return ret + maxCnt;
}
 
int main(){
 
    while(true){
        int H, N;
        cin >> H >> N;
        if(H == 0){
            break;
        }
 
        int field[20][2][2];
        memset(field, 0, sizeof(field));
 
        for(int i = 0; i < 2; i++){
            for(int j = 0; j < 2; j++){
                field[0][i][j] = 1;
            }
        }
 
        for(int i = 1; i <= H; i++){
            string temp;
            for(int j = 0; j < 2; j++){
                cin >> temp;
                for(int k = 0; k < 2; k++){
                    if(temp[k] == '#'){
                        field[i][j][k] = 1;
                    }
                }
            }
        }
 
        vector<Block> block(N);
 
        for(int i = 0; i < N; i++){
            block[i].input();
        }
         
        int ans = 0;
        for(int dx = -1; dx <= 1; dx++){
            for(int dy = -1; dy <= 1; dy++){
                int nextField[20][2][2];
                memcpy(nextField, field, sizeof(field));
                int cnt = calcAll(N, 0, block, dx, dy, nextField);
                ans = max(ans, cnt);
            }
        }
         
        cout << ans << endl;
    }
 
    return 0;
}