Function Lge

Part of:

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