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