#! /bin/env tclsh

package require {ycl dir scan}

namespace eval main {
	coroutine main ::apply [list {argv0 argv} {
		yield
		[[yclprefix] dir scan .spawn scanner1] init {*}$argv
	} [namespace current]] $argv0 $argv

	main
}


