#module m_stack o_array,o_index
#modinit int p
        Empty=1
        NotEmpty=-1
        dim o_array, p
        o_index = 0
        return

#modfunc local push int p
        o_array(o_index) = p
        o_index++
        return
#modcfunc local pop
        o_index--
        if o_index < 0 {
                dialog "popしすぎです",1
                return 0
        }
        return o_array(o_index)
#modcfunc local is_Empty
        if o_index==0:return 1
        return -1
#global