# Pastebin F7Fdpwsf
    forM fields $ \(fieldName, _, _) -> do
      let appLens = AppTypeE (VarE $ mkName "field") $ LitT $ StrTyLit (nameBase fieldName)
      [e|($(stringE $ nameBase fieldName), $(varE fieldName) el & $(pure appLens) %~ fmap (pack . show))|]