bpk; exphist(r_stat);