(flat-mapo rel l result): each element x of l is mapped to a list via rel x list-from-x, and all such lists are concatenated to form result. (flat-mapo (fn (x r) (== r (list x x))) (list 1 2 3) q) -> ((1 1 2 2 3 3)) 5 new tests, 515/515 cumulative.