
set path [file normalize [file dirname [info script]]]

if {![tcl ready]} then {tcl load}

tcl set [tcl master] path $path

catch {
  tcl eval [tcl master] {
    set argv {}
    proc exit {args} {eval after cancel [after info]; destroy .}
    source [file join $path tetris.tcl]
    after 0 list; vwait forever
  }
}

tcl unload
