Function I1mach

Part of:

package f2cl-lib
( i1mach < i > )