How to create a queue in ATS?

Question

I can use a list like a stack, but what is a proper way to create a queue in ATS? For instance, say I have the following pseudo code:

val xs = queue_create()
val () = xs.enqueue(1)
val () = xs.enqueue(2)
val () = print(xs.dequeue()) // print 1
val () = xs.enqueue(3)
val () = print(xs.dequeue()) // print 2
val () = print(xs.dequeue()) // print 3

I should see that 1, 2, and 3 are printed out.

Answer 1

Since I'm unaware of a queue type built in the ATS standard library, I offer my own basic implementation from one of my projects, adapted from the code referenced in the Linear Channels for Asynchronous IPC chapter of the Introduction to Programming in ATS book.

See a working example in this snippet.