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