swab xxs = [ [d, c, b, a]
           | [a, b, c, d] <- xxs
           ]

check14 = swab [[0, 1, 2, 3], [4, 5, 6, 7]] == [[3, 2, 1, 0], [7, 6, 5, 4]]