-- |Removes the given object from its current parent, if any, and then adds it as a child of the other given object.
kidnap :: ChildBearing c p
       => p -- ^The kidnapper.
       -> c -- ^The child to kidnap.
       IO ()