###############################################################################
# Comment
###############################################################################

namespace eval myNamespace {
	proc myproc ( a { b 20 } } {
		upvar 1 $a array
		s = [string length $a]
		puts $array
		set t 2.4
		set s "Alfa"
		return [expr { s + b }]
	}
}

