movePlayer South game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y - 10
movePlayer South game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y - 10
movePlayer South game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y - 10