class method use

class aa {
 public method kk
 constructor {args} {
 }
}
body aa::kk {args} {
 puts $args
}

class bb {
 
}

class cc {
public method bbt
public method bby
 constructor {args} {
 }
}

body cc::bbt {args} {
 aa .teb
 .teb kk 3
 puts $args
 bby 5
 return [expr $args + 5]
}

body cc::bby {args} {
 puts $args
}

aa .te
.te kk 2

cc .tes
set aaaa [.tes bbt 4]
puts $aaaa