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

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