object x

procedure test()
    if object(x) then
        puts(1,"x is an object\n")
    else
        puts(1,"x is unassigned\n")
    end if
end procedure

test()
x = 1
test()