upper_tri_l function

Lens into upper diagonal elements