awk example
tcl example