alpha=0.0003
lower=qnorm(alpha,mean=0,sd=1)
upper=qnorm(1-alpha,mean=0,sd=1)

message(paste0("Rejection region left tail Z in ]-inf,",lower,"]"))
message(paste0("Rejection region right tail Z in [",lower,",+inf["))