-- |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 ()