\ Include a file from the arg list
: process-arg ( argnum )
  dup 0 > over argc < and
  if
    ." include "
    4 * argv + @ dup zcount type cr
    zcount included
  else
    drop
  then
;