turnDown :: Modifiers -> Position -> WormsAction ()
turnDown _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 6 snakeHead
  setObjectSpeed (0,-speedMod) snakeHead
turnDown :: Modifiers -> Position -> WormsAction ()
turnDown _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 6 snakeHead
  setObjectSpeed (0,-speedMod) snakeHead
turnDown _ _ = do
  snakeHead <- findObject "head" "head"
  setObjectCurrentPicture 6 snakeHead
  setObjectSpeed (0,-speedMod) snakeHead