removeHeaders headers headersToRemove = Prelude.filter (\(h,_) -> not (inlist h headersToRemove)) headers
                                where inlist h (x:l) = h == x || inlist h l 
                                      inlist h [] = False
removeHeaders headers headersToRemove = Prelude.filter (\(h,_) -> not (inlist h headersToRemove)) headers
                                where inlist h (x:l) = h == x || inlist h l 
                                      inlist h [] = False
removeHeaders headers headersToRemove = Prelude.filter (\(h,_) -> not (inlist h headersToRemove)) headers
                                where inlist h (x:l) = h == x || inlist h l 
                                      inlist h [] = False