fn remove_carriage(
e: On<'_, '_, Activate>,
cmd: Commands<'_, '_>,
children: Query<'_, '_, &ChildOf>,
carriages_list: Single<'_, '_, (Entity, &Children), With<CarriagesList>>,
carriage_list_items: Query<'_, '_, &mut CarriageListItem>,
current_placing_train: ResMut<'_, CurrentPlacingTrain>,
)