Create afraid6.tcl