# Pastebin Z5CZWFIL
removeURLs :: Maybe Value -> Maybe Value
removeURLs v = foldr ($) v mods
  where
    mods = [clear "url" "", clear "head" "", clear "urls" (Array mempty), clear "heads" (Array mempty)]
    clear s n = _Just . deep values . _Object . at s ?~ n