  ?? SKIP := 2 ??
  ?? PUSH (LIST := ON) ??
  { MLTFL -- Declaration of mlt$floating_length }
  ?? POP ??

  TYPE
    mlt$floating_length = (mlc$single_precision,
      mlc$double_precision);
