# Mathematica, 69 bytes StringRiffle[ToUpperCase@Alphabet[][[Max@##]]&~Array~{26,26}," ",""]& Anonymous function. Takes no input and returns a string as output. Basically just takes `letters[max(x, y)]` for all *x*, *y* from 1 to 26.