addCell (screen, _s) [- 1 , 0, s] = (screen, s)
addCell (screen, score) [x, y, c] = (M.insert (x, y) (cellOf c) screen, score)
addCell (screen, _s) [- 1 , 0, s] = (screen, s)
addCell (screen, score) [x, y, c] = (M.insert (x, y) (cellOf c) screen, score)