global function get_singleton()
    if chk==NULL then
        chk = new("singleton")
    end if
    return chk
end function