(> (+ y 1 (length tetramine)) 20))
(setq grid (remove-rows-completed (join-grids tetramine grid x y)))
(setq tetramine next x 6 y 0)
(> (+ y 1 (length tetramine)) 20))
(setq grid (remove-rows-completed (join-grids tetramine grid x y)))
(setq tetramine next x 6 y 0)