queue.ktn

// Translation of https://gist.github.com/jeaye/ae36de6b677c4000ce67

data queue:
  case queue ([<s...> (s... -> s...)])

define push<s...> (queue (s... -> s...) -> queue):
  -> f;
  match:
    case queue:
      f append queue

define go (queue ->):
  match:
    case queue:
      \apply each

define work (->):
  "working" say

[] queue
{ "first" say } push
\work push
go