Pascal
program googologisms;
var a:array[0..20] of string;
b:array[0..4] of string;
i,j,k:integer;
st1,st2,st3,st4, st5,st6,st7,st8:string;
begin
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'; a[10]:='dek';
a[11]:='unun'; a[12]:='bun';
a[13]:='trun'; a[14]:='quadrun';
a[15]:='quintun'; a[16]:='sextun';
a[17]:='septun'; a[18]:='octun';
a[19]:='nonun'; a[20]:='vig';
b[0]:='om'; b[1]:='add';
b[2]:='ult'; b[3]:='ex';
for k:=1 to 20 do begin
for j:=1 to 20 do begin
for i:=1 to 20 do begin
st1:=a[i]+b[1]; st2:='-'+a[j]+b[2];
st3:='-'+a[k]+b[3]; st4:=b[0]; st5:='<math>f_{{}\omega';
st6:='{^}{{}'+k+'{}}';st7:='.'+j; st8:='{+}'+i+'{}}(10)</math>';
if k=1 then st3:=''; if k=1 then st6:='';
if j=1 then st2:=''; if j=1 then st7:='';
writeln(st1,st2,st3,st4);
writeln(st5,st6,st7,st8);
end; end; end;
end.