(set! *random-state* (seed->random-state (current-time)))
 
(define (make-character-generator string)
  (lambda () (string-ref string (random (string-length string)))))
 
(define vowel (make-character-generator "aeiouy"))
(define consonant (make-character-generator "bcdfghjklmnpqrstvwxyz"))
 
(define name
  (let* ((patterns (list (list consonant vowel consonant)
                         (list consonant vowel consonant vowel)
                         (list vowel consonant vowel)
                         (list consonant vowel consonant vowel consonant)))
         (patterns-size (length patterns)))
    (lambda ()
      (apply string
             ((lambda (chars) (cons (char-upcase (car chars))
                                    (cdr chars)))
              (map (lambda (gen) (gen))
                   (list-ref patterns (random patterns-size))))))))
 
(display (name))

KHNldCEgKnJhbmRvbS1zdGF0ZSogKHNlZWQtPnJhbmRvbS1zdGF0ZSAoY3VycmVudC10aW1lKSkpCgooZGVmaW5lIChtYWtlLWNoYXJhY3Rlci1nZW5lcmF0b3Igc3RyaW5nKQogIChsYW1iZGEgKCkgKHN0cmluZy1yZWYgc3RyaW5nIChyYW5kb20gKHN0cmluZy1sZW5ndGggc3RyaW5nKSkpKSkKCihkZWZpbmUgdm93ZWwgKG1ha2UtY2hhcmFjdGVyLWdlbmVyYXRvciAiYWVpb3V5IikpCihkZWZpbmUgY29uc29uYW50IChtYWtlLWNoYXJhY3Rlci1nZW5lcmF0b3IgImJjZGZnaGprbG1ucHFyc3R2d3h5eiIpKQoKKGRlZmluZSBuYW1lCiAgKGxldCogKChwYXR0ZXJucyAobGlzdCAobGlzdCBjb25zb25hbnQgdm93ZWwgY29uc29uYW50KQogICAgICAgICAgICAgICAgICAgICAgICAgKGxpc3QgY29uc29uYW50IHZvd2VsIGNvbnNvbmFudCB2b3dlbCkKICAgICAgICAgICAgICAgICAgICAgICAgIChsaXN0IHZvd2VsIGNvbnNvbmFudCB2b3dlbCkKICAgICAgICAgICAgICAgICAgICAgICAgIChsaXN0IGNvbnNvbmFudCB2b3dlbCBjb25zb25hbnQgdm93ZWwgY29uc29uYW50KSkpCiAgICAgICAgIChwYXR0ZXJucy1zaXplIChsZW5ndGggcGF0dGVybnMpKSkKICAgIChsYW1iZGEgKCkKICAgICAgKGFwcGx5IHN0cmluZwogICAgICAgICAgICAgKChsYW1iZGEgKGNoYXJzKSAoY29ucyAoY2hhci11cGNhc2UgKGNhciBjaGFycykpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChjZHIgY2hhcnMpKSkKICAgICAgICAgICAgICAobWFwIChsYW1iZGEgKGdlbikgKGdlbikpCiAgICAgICAgICAgICAgICAgICAobGlzdC1yZWYgcGF0dGVybnMgKHJhbmRvbSBwYXR0ZXJucy1zaXplKSkpKSkpKSkKCihkaXNwbGF5IChuYW1lKSk=