added final subroutine example l-set