Function Flatten

Part of:

package kmrcl
( flatten < lis > )