@echo off:mainfor %%a in (h,o,l,a) do (for %%b in (a,d,i,o,s) do (for %%c in (1,9,9,0) do (call :comp %%a%%b%%c)set c=1)set c=2)set c=3)set c=4)set c=5echo By **Aincrad**>>diccionario.txt:compecho %*>>diccionario.txt