%%HP: T(1)A(R)F(.);
"!NO CODE
!RPL
::
  xPATH xSWAP xHOME
  ITE
  ::
    xSWAP
    ID CHECK.BZ
    xIF xHEAD
    xTHEN
    ::
      xIFERR xBZC xERRTHEN xIFEND
    ;
    xIFEND
    xSWAP TRUE
  ;
  FALSE
  ID CHECK.BZ
  xTAIL
  ' ID CHECK.BZ xSTO
  xSWAP xEVAL 
;
@"