%%HP: T(3)A(R)F(.);
\<<
                        @ LEVEL 1 : what to do
    PATH                @ STARTPATH
    DUP SIZE 1 -        @ DEPTH of startpath { HOME } == 0
    0                   @ current recursion depth
    0                   @ num dirs acted on

    0 0 0               @ user vars

    \-> \<-DOIT
        \<-STARTPATH
        \<-STARTLVL
        \<-LVL
        \<-NUMDIRS

        \<-USR1 @ these are for the use of \<-DOIT
        \<-USR2
        \<-USR3

    \<<
    SGLB
    \>>
\>>

