as = [0x3F, 0xE2, 0x65, 0xCA] # new
  where
    new = [ a ^ b ^ c | a <- as
                      | b <- drop`{1} as
                      | c <- drop`{3} as ]