print "Mo: $TAG[0]<BR>",
      "DI: $TAG[1]<BR>",
      "Mi: $TAG[2]<BR>",
      "Do: $TAG[3]<BR>",
      "Fr: $TAG[4]<BR>",
      "Sa: $TAG[5]<BR>",
      "So: $TAG[6]<BR>";