Function update_state_text 

fn update_state_text(
    text: Single<'_, '_, &mut Text, With<StateText>>,
    current_shape: Res<'_, State<CurrentShape>>,
    current_step: Res<'_, State<CurrentStep>>,
)