Evaluated proc head {n args} {if {[llength $args] == 0} {set str $n; set n 10} {set str [lindex $args 0]}; join [lrange [lines $str] 0 [expr $n-1]] \n}