getAliveTails (o:os) t = do
  sleeping <- getObjectAsleep o
  if sleeping
    then getAliveTails os t
    else getAliveTails os (o:t)
getAliveTails (o:os) t = do
  sleeping <- getObjectAsleep o
  if sleeping
    then getAliveTails os t
    else getAliveTails os (o:t)
getAliveTails (o:os) t = do
  sleeping <- getObjectAsleep o
  if sleeping
    then getAliveTails os t
    else getAliveTails os (o:t)