root = Card([header, revenueCard, comparison, chartCard])
header = CardHeader("Mid-morning check-in", "Tuesday, 10:30 AM")
revenueCard = Card([revHeading, revAmount, revBadge], "sunk")
revHeading = Heading("Revenue so far today", "h3")
revAmount = TextContent("$842.50", "large-heavy")
revBadge = Tag("+12.4% vs yesterday", null, null, "success")
comparison = Callout("success", "Ahead of yesterday", "You're $93 ahead of where you were at this same time yesterday.")
chartCard = Card([chartHeading, chart], "sunk")
chartHeading = Heading("Hourly takings", "h3")
chart = BarChart(["8 AM", "9 AM", "10 AM", "11 AM"], [todaySeries, yesterdaySeries], "grouped", "Time", "Revenue ($)")
todaySeries = Series("Today", [96, 208, 284, 254])
yesterdaySeries = Series("Yesterday", [85, 182, 241, 219])