Function Extract-Head-Form

Part of:

package metabang.utilities
( extract-head-form < fexp > )

Give back the thing that can appear as the head of a procedure
application.