val rewrite_instructions : Types.p_exp -> Types.p_exp