#!/usr/local/bin/tclsh8.4
puts stdout "Here is a crash script."
puts stdout "I've tested under tclsh8.4a3."
# ---
encoding system iso2022-jp
fconfigure stdin -encoding iso2022-jp
fconfigure stdout -encoding iso2022-jp
# ---
puts "Here! Crash Now!!"
set a {$B$"$$$&$($*(B}
