Function Lgt

Part of:

package f2cl-lib
( lgt < s1 > < s2 > )