diff --git a/archivador.sh b/archivador.sh
index 068a854..4a7ee10 100755
--- a/archivador.sh
+++ b/archivador.sh
@@ -26,7 +26,7 @@ if test -f lista-paginas.zst; then
     echo "Son $(cat lista-paginas | wc -l) páginas."
     echo "> Separando en varias listas..."
     rm -f TMP-lista-shard-*
-    lua otros-scripts/shard.lua < ./lista-paginas
+    lua otros-scripts/shard.lua 64 < ./lista-paginas
     echo "> Empezando a descargar..."
     for lista in TMP-lista-shard-*; do 
         wget --header='accept-encoding: br' --no-verbose --no-clobber --input-file="$lista" --restrict-file-names=nocontrol &
diff --git a/otros-scripts/shard.lua b/otros-scripts/shard.lua
index 2380ee3..9a942a9 100644
--- a/otros-scripts/shard.lua
+++ b/otros-scripts/shard.lua
@@ -8,7 +8,7 @@ for line in (list):gmatch('[^\r\n]+') do
 	lineas = lineas + 1
 end
 
-local cantidad_de_listas = 16
+local cantidad_de_listas = tonumber(arg[1])
 local cada_lista = lineas / cantidad_de_listas
 
 local listas = {}