RosettaCodeData/Task/Queue-Definition/M2000-Interpreter/queue-definition.m2000

Module Checkit {
      a=Stack
      Stack a {
            Data 100,200, 300
      }
      Stack a {
            While not empty {
                  Read N
                  Print N
            }
      }
}
Checkit