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
<math>f_{0}(10)</math>
unalum
<math>f_{1}(10)</math>
balum
<math>f_{2}(10)</math>
tralum
<math>f_{3}(10)</math>
quadralum
<math>f_{4}(10)</math>
quintalum
<math>f_{5}(10)</math>
sextalum
<math>f_{6}(10)</math>
septalum
<math>f_{7}(10)</math>
octalum
<math>f_{8}(10)</math>
nonalum
<math>f_{9}(10)</math>
zerunalum
<math>f_{10}(10)</math>
ununalum
<math>f_{11}(10)</math>
bunalum
<math>f_{12}(10)</math>
trunalum
<math>f_{13}(10)</math>
quadrunalum
<math>f_{14}(10)</math>
quintunalum
<math>f_{15}(10)</math>
sextunalum
<math>f_{16}(10)</math>
septunalum
<math>f_{17}(10)</math>
octunalum
<math>f_{18}(10)</math>
nonunalum
<math>f_{19}(10)</math>
zeribalum
<math>f_{20}(10)</math>
unibalum
<math>f_{21}(10)</math>
bibalum
<math>f_{22}(10)</math>
tribalum
<math>f_{23}(10)</math>
quadribalum
<math>f_{24}(10)</math>
quintibalum
<math>f_{25}(10)</math>
sextibalum
<math>f_{26}(10)</math>
septibalum
<math>f_{27}(10)</math>
octibalum
<math>f_{28}(10)</math>
nonibalum
<math>f_{29}(10)</math>
zeritralum
<math>f_{30}(10)</math>
unitralum
<math>f_{31}(10)</math>
bitralum
<math>f_{32}(10)</math>
tritralum
<math>f_{33}(10)</math>
quadritralum
<math>f_{34}(10)</math>
quintitralum
<math>f_{35}(10)</math>
sextitralum
<math>f_{36}(10)</math>
septitralum
<math>f_{37}(10)</math>
octitralum
<math>f_{38}(10)</math>
nonitralum
<math>f_{39}(10)</math>
zeriquadralum
<math>f_{40}(10)</math>
uniquadralum
<math>f_{41}(10)</math>
biquadralum
<math>f_{42}(10)</math>
triquadralum
<math>f_{43}(10)</math>
quadriquadralum
<math>f_{44}(10)</math>
quintiquadralum
<math>f_{45}(10)</math>
sextiquadralum
<math>f_{46}(10)</math>
septiquadralum
<math>f_{47}(10)</math>
octiquadralum
<math>f_{48}(10)</math>
noniquadralum
<math>f_{49}(10)</math>
zeriquintalum
<math>f_{50}(10)</math>
uniquintalum
<math>f_{51}(10)</math>
biquintalum
<math>f_{52}(10)</math>
triquintalum
<math>f_{53}(10)</math>
quadriquintalum
<math>f_{54}(10)</math>
quintiquintalum
<math>f_{55}(10)</math>
sextiquintalum
<math>f_{56}(10)</math>
septiquintalum
<math>f_{57}(10)</math>
octiquintalum
<math>f_{58}(10)</math>
noniquintalum
<math>f_{59}(10)</math>
zerisextalum
<math>f_{60}(10)</math>
unisextalum
<math>f_{61}(10)</math>
bisextalum
<math>f_{62}(10)</math>
trisextalum
<math>f_{63}(10)</math>
quadrisextalum
<math>f_{64}(10)</math>
quintisextalum
<math>f_{65}(10)</math>
sextisextalum
<math>f_{66}(10)</math>
septisextalum
<math>f_{67}(10)</math>
octisextalum
<math>f_{68}(10)</math>
nonisextalum
<math>f_{69}(10)</math>
zeriseptalum
<math>f_{70}(10)</math>
uniseptalum
<math>f_{71}(10)</math>
biseptalum
<math>f_{72}(10)</math>
triseptalum
<math>f_{73}(10)</math>
quadriseptalum
<math>f_{74}(10)</math>
quintiseptalum
<math>f_{75}(10)</math>
sextiseptalum
<math>f_{76}(10)</math>
septiseptalum
<math>f_{77}(10)</math>
octiseptalum
<math>f_{78}(10)</math>
noniseptalum
<math>f_{79}(10)</math>
zeroctalum
<math>f_{80}(10)</math>
unoctalum
<math>f_{81}(10)</math>
boctalum
<math>f_{82}(10)</math>
troctalum
<math>f_{83}(10)</math>
quadroctalum
<math>f_{84}(10)</math>
quintoctalum
<math>f_{85}(10)</math>
sextoctalum
<math>f_{86}(10)</math>
septoctalum
<math>f_{87}(10)</math>
octoctalum
<math>f_{88}(10)</math>
nonoctalum
<math>f_{89}(10)</math>
zerinonalum
<math>f_{90}(10)</math>
uninonalum
<math>f_{91}(10)</math>
binonalum
<math>f_{92}(10)</math>
trinonalum
<math>f_{93}(10)</math>
quadrinonalum
<math>f_{94}(10)</math>
quintinonalum
<math>f_{95}(10)</math>
sextinonalum
<math>f_{96}(10)</math>
septinonalum
<math>f_{97}(10)</math>
octinonalum
<math>f_{98}(10)</math>
noninonalum
<math>f_{99}(10)</math>
Note: it is possible to use alternative names also inspired by roman numbers
"dekalum" for , "vigalum" for , "trigalum" for , quadrigalum for
and so on.