Module Stable1 {
      Inventory queue alfa
      Stack New {
            Data "UK London","US New York","US Birmingham", "UK Birmingham"
            While not empty {
                  Append alfa, Letter$
            }
      }
      sort alfa
      k=Each(alfa)
      Document A$
      NL$={
      }
      While k {
            A$= Eval$(k, k^)+NL$
      }
      Clipboard A$ ' write to clipboard
      Report A$
}
Call Stable1

Output:
UK Birmingham
UK London
US Birmingham
US New York