On *:Input:*: {
  if (.list == $1) {
    tokenize 124 $1-
    var %sdir = $gettok($1,$+(2,-,$numtok($1,32)),32)
    if (%sdir) {
      var %x = 1
      while (%x <= $findfile(%sdir,$iif($2,$2,*.*),0)) {
        echo -a $+([,$findfile(%sdir,$iif($2,$2,*.*),%x),])
        inc %x
      }
      halt
    }
  }
}