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