class ::Beispiel {
    inherit ::PortableServer::ServantBase

    constructor {ewert} {
	set einWert $ewert
    }

    public method _Interface {} {
        return "IDL:Beispiel:1.0"
    }

    # type of einWert is short
    public variable einWert 42

    public method helloWorld {a b}
}


#   parameters:
#     a: in ulong, b: out double
#   returns:
#     string
#
body ::Beispiel::helloWorld {a b_var} {
    upvar $b_var b

    puts stdout "\nhelloWorld, Eingabe $a"

    set b [expr sqrt( $a )]

    set retval "Hello World at [clock format $a]"

    return $retval
}