Function First-Item

Part of:

package metabang.cl-containers
( first-item < x > )