aListDeleteAll :: Eq k => [k] -> [(k,a)] -> [(k,a)]
aListDeleteAll = \case
  []     -> id
  k : ks -> aListDelete k . aListDeleteAll ks

-- }}}

-- Application Combinators {{{
aListDeleteAll :: Eq k => [k] -> [(k,a)] -> [(k,a)]
aListDeleteAll = \case
  []     -> id
  k : ks -> aListDelete k . aListDeleteAll ks

-- }}}

-- Application Combinators {{{
aListDeleteAll = \case
  []     -> id
  k : ks -> aListDelete k . aListDeleteAll ks

-- }}}

-- Application Combinators {{{