Tetris lower

data Block     = Block (Int,Int)                                                                                                                                             
                 deriving (Eq,Show) 

--                                                                                                                                                                           
-- Lower a single block (by one) if it is above a certain threshold y                                                                                                                                     
--                                                                                                                                                                           
-- (* Difficulty 2 *)                                                                                                                                                        
lower :: Int -> Block -> Block                                                                                                                                               
lower y (Block (x,y2)) | y > y2    = undefined                                                                                                                        
                       | otherwise = undefined
You can submit as many times as you like. Only your latest submission will be taken into account.