print +(qw/Mo Di Mi Do Fr Sa So/)[$_], ': ', $TAG[$_], '<BR>' for 0..6;