Program for generation of googologisms before w

program before_w;
var a:array[0..10] of string;
i,j:integer;
st1,st2,st3:string;
begin a[0]:='zer';
a[1]:='un'; a[2]:='b'; 
a[3]:='tr'; a[4]:='quadr';
a[5]:='quint'; a[6]:='sext';
a[7]:='sept'; a[8]:='oct'; 
a[9]:='non'; 
for i:=0 to 9 do begin 
for j:=0 to 9 do begin 
case i of 1,8: st1:=a[j]+a[i]+'alum'; 
          0: st1:=a[j]+'alum';
else st1:=a[j]+'i'+a[i]+'alum'; end;
writeln(st1); writeln; 
st2:='<math>f_{'; st3:='}(10)</math>';
if i=0 then writeln(st2,j,st3)
else writeln(st2,i,j,st3); writeln;
end; end;  end.

Result of program working:

zeralum

f_{0}(10)

unalum

f_{1}(10)

balum

f_{2}(10)

tralum

f_{3}(10)

quadralum

f_{4}(10)

quintalum

f_{5}(10)

sextalum

f_{6}(10)

septalum

f_{7}(10)

octalum

f_{8}(10)

nonalum

f_{9}(10)

zerunalum

f_{10}(10)

ununalum

f_{11}(10)

bunalum

f_{12}(10)

trunalum

f_{13}(10)

quadrunalum

f_{14}(10)

quintunalum

f_{15}(10)

sextunalum

f_{16}(10)

septunalum

f_{17}(10)

octunalum

f_{18}(10)

nonunalum

f_{19}(10)

zeribalum

f_{20}(10)

unibalum

f_{21}(10)

bibalum

f_{22}(10)

tribalum

f_{23}(10)

quadribalum

f_{24}(10)

quintibalum

f_{25}(10)

sextibalum

f_{26}(10)

septibalum

f_{27}(10)

octibalum

f_{28}(10)

nonibalum

f_{29}(10)

zeritralum

f_{30}(10)

unitralum

f_{31}(10)

bitralum

f_{32}(10)

tritralum

f_{33}(10)

quadritralum

f_{34}(10)

quintitralum

f_{35}(10)

sextitralum

f_{36}(10)

septitralum

f_{37}(10)

octitralum

f_{38}(10)

nonitralum

f_{39}(10)

zeriquadralum

f_{40}(10)

uniquadralum

f_{41}(10)

biquadralum

f_{42}(10)

triquadralum

f_{43}(10)

quadriquadralum

f_{44}(10)

quintiquadralum

f_{45}(10)

sextiquadralum

f_{46}(10)

septiquadralum

f_{47}(10)

octiquadralum

f_{48}(10)

noniquadralum

f_{49}(10)

zeriquintalum

f_{50}(10)

uniquintalum

f_{51}(10)

biquintalum

f_{52}(10)

triquintalum

f_{53}(10)

quadriquintalum

f_{54}(10)

quintiquintalum

f_{55}(10)

sextiquintalum

f_{56}(10)

septiquintalum

f_{57}(10)

octiquintalum

f_{58}(10)

noniquintalum

f_{59}(10)

zerisextalum

f_{60}(10)

unisextalum

f_{61}(10)

bisextalum

f_{62}(10)

trisextalum

f_{63}(10)

quadrisextalum

f_{64}(10)

quintisextalum

f_{65}(10)

sextisextalum

f_{66}(10)

septisextalum

f_{67}(10)

octisextalum

f_{68}(10)

nonisextalum

f_{69}(10)

zeriseptalum

f_{70}(10)

uniseptalum

f_{71}(10)

biseptalum

f_{72}(10)

triseptalum

f_{73}(10)

quadriseptalum

f_{74}(10)

quintiseptalum

f_{75}(10)

sextiseptalum

f_{76}(10)

septiseptalum

f_{77}(10)

octiseptalum

f_{78}(10)

noniseptalum

f_{79}(10)

zeroctalum

f_{80}(10)

unoctalum

f_{81}(10)

boctalum

f_{82}(10)

troctalum

f_{83}(10)

quadroctalum

f_{84}(10)

quintoctalum

f_{85}(10)

sextoctalum

f_{86}(10)

septoctalum

f_{87}(10)

octoctalum

f_{88}(10)

nonoctalum

f_{89}(10)

zerinonalum

f_{90}(10)

uninonalum

f_{91}(10)

binonalum

f_{92}(10)

trinonalum

f_{93}(10)

quadrinonalum

f_{94}(10)

quintinonalum

f_{95}(10)

sextinonalum

f_{96}(10)

septinonalum

f_{97}(10)

octinonalum

f_{98}(10)

noninonalum

f_{99}(10)


Note: it is possible to use alternative names also inspired by roman numbers

"dekalum" for  f_{10}(10),   "vigalum" for  f_{20}(10),   "trigalum" for f_{30}(10)quadrigalum for f_{40}(10)

and so on.

Comments