\Draw
 \Define\DrawBar(2){{...\ant}}
 \BarChartSpec(HT,0,10)(0)
 \BarChart( 10,Anthropology  &
   50,Antic & 30,Anthony  & 75,Ant)
 \MoveToLoc(NE)...\MarkLoc(NE)
 \MoveToLoc(SW)...\MarkLoc(SW)
 \Axis(SW,NE)(S1, 0 & 25 &
   50 & 75 & 100)    \EndDraw