let (>:::) s l = TestLabel(s, TestList(l))