/** This program demonstrates using Unicode General Category information to
    display all the currency symbols defined in Unicode (with general category
    "Sc") and their names. */

for i=0 to 0x1FFFF
   if charBlock[i] == "BAMUM"
      println[char[i] + "\t" + toASCIIHigh[char[i]] + "\t" + charName[i]]