movePlayer East game  = game { player = (player game) { playerX = xv } }
                      where
                      x= playerX (player game)
                      xv = x + 10
movePlayer East game  = game { player = (player game) { playerX = xv } }
                      where
                      x= playerX (player game)
                      xv = x + 10
movePlayer East game  = game { player = (player game) { playerX = xv } }
                      where
                      x= playerX (player game)
                      xv = x + 10