(cond ((or (key? 'down) (> (get-time timer) 5000))
(cond ((or (collide-grids current-tetramine grid x (+ y 1))
(> (+ y 1 (length current-tetramine)) 20))
(cond ((or (key? 'down) (> (get-time timer) 5000))
(cond ((or (collide-grids current-tetramine grid x (+ y 1))
(> (+ y 1 (length current-tetramine)) 20))