getAsleepTail (o:os) = do
  sleeping <- getObjectAsleep o
  if sleeping
    then return o
    else getAsleepTail os
getAsleepTail (o:os) = do
  sleeping <- getObjectAsleep o
  if sleeping
    then return o
    else getAsleepTail os
getAsleepTail (o:os) = do
  sleeping <- getObjectAsleep o
  if sleeping
    then return o
    else getAsleepTail os