Added guttman_l4 function