for (\&do_D, \&do_E, \&do_C) {
    do_A; do_B; do_C;
    $_->();
}