R: add step4_if_fn_do and step5_tco.