package require XOTcl
xotcl::Class B

namespace import xotcl::*
source a.xotcl


Class create B -superclass A

B instproc init {_value} {
next DIGIT $_value

}


B instproc testB {} {
puts "testB was called"
}