%%HP: T(3)A(R)F(.);
\<< 1. CF 1
  \<<
    IF DUP TYPE 5. ==
    THEN OBJ\-> DROP 1.
SF
    END
  \>> DOSUBS
  IF 1. FS?
  THEN FLATTEN
  END
\>>