ten-groups.hs