.sub _main
    newclass P5, "Foo"
    classname S0, P5
    assign S0, "Bar"

    find_type I1, "Foo"
    new P5, I1
    P5."myname"()
    
    end
.end

.namespace ["Foo"]

.sub myname method
    print "Foo\n"
.end

.namespace ["Bar"]

.sub myname method
    print "Bar\n"
.end