Short script for adjusting pvalues by BH