\version "2.19.82"
\paper {
  #(define (include-greek-characters)
    (add-text-replacements!
      '(("Α" . "Α") ("α" . "α")
        ("&Alphat;" . "Ά") ("&alphat;" . "ά")
        ("Β" . "Β") ("β" . "β")
        ("Γ" . "Γ") ("γ" . "γ")
        ("Δ" . "Δ") ("δ" . "δ")
        ("Ε" . "Ε") ("ε" . "ε")
        ("&Epsilont;" . "Έ") ("&epsilont;" . "έ")
        ("Ζ" . "Ζ") ("ζ" . "ζ")
        ("Η" . "Η") ("η" . "η")
        ("&Etat;" . "Ή") ("&etat;" . "ή")
        ("Θ" . "Θ") ("θ" . "θ")
        ("Ι" . "Ι") ("ι" . "ι")
        ("&Iotad;" . "Ϊ") ("&iotad;" . "ϊ") ("&iotadt;" . "ΐ")
        ("&Iotat;" . "Ί") ("&iotat;" . "ί")
        ("Κ" . "Κ") ("κ" . "κ")
        ("Λ" . "Λ") ("λ" . "λ")
        ("Μ" . "Μ") ("μ" . "μ")
        ("Ν" . "Ν") ("ν" . "ν")
        ("Ξ" . "Ξ") ("ξ" . "ξ")
        ("Ο" . "Ο") ("ο" . "ο")
        ("&Omicront;" . "Ό") ("&omicront;" . "ό")
        ("Π" . "Π") ("π" . "π")
        ("Ρ" . "Ρ") ("ρ" . "ρ")
        ("Σ" . "Σ") ("σ" . "σ") ("ς" . "ς")
        ("Τ" . "Τ") ("τ" . "τ")
        ("Υ" . "Î¥") ("υ" . "υ")
        ("&Upsilond;" . "Ϋ") ("&upsilond;" . "ϋ") ("&upsilondt;" . "ΰ")
        ("&Upsilont;" . "Ύ") ("&upsilont;" . "ύ")
        ("Φ" . "Φ") ("φ" . "φ")
        ("Χ" . "Χ") ("χ" . "χ")
        ("Ψ" . "Ψ") ("ψ" . "ψ")
        ("Ω" . "Ω") ("ω" . "ω")
        ("&Omegat;" . "Ώ") ("&omegat;" . "ώ"))))
}