: VLIST LATEST
      BEGIN DUP
       .NAME OVER NOT 0<
        IF
        KEY DROP
     THEN CR
    5- @ DUP 2FCB1 <
   UNTIL
  CR 2DROP ;