list.scm: add elegent gen-tripple-group