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