RosettaCodeData/Task/Queue-Definition/Phix/queue-definition.phix

sequence queue = {}

procedure push(object what)
    queue = append(queue,what)
end procedure

function pop()
    object what = queue[1]
    queue = queue[2..$]
    return what
end function

function empty()
    return length(queue)=0
end function