addTail :: (GLdouble,GLdouble) -> WormsAction ()
addTail presentHeadPos = do
  tails <- getObjectsFromGroup "tail"
  aliveTails <- getAliveTails tails []
  asleepTail <-  getAsleepTail tails
  setObjectAsleep False asleepTail
  setObjectPosition presentHeadPos asleepTail
  setObjectAttribute (Tail 0) asleepTail
  addTailNumber aliveTails
addTail :: (GLdouble,GLdouble) -> WormsAction ()
addTail presentHeadPos = do
  tails <- getObjectsFromGroup "tail"
  aliveTails <- getAliveTails tails []
  asleepTail <-  getAsleepTail tails
  setObjectAsleep False asleepTail
  setObjectPosition presentHeadPos asleepTail
  setObjectAttribute (Tail 0) asleepTail
  addTailNumber aliveTails
addTail presentHeadPos = do
  tails <- getObjectsFromGroup "tail"
  aliveTails <- getAliveTails tails []
  asleepTail <-  getAsleepTail tails
  setObjectAsleep False asleepTail
  setObjectPosition presentHeadPos asleepTail
  setObjectAttribute (Tail 0) asleepTail
  addTailNumber aliveTails