R_hl function

R high /low