\documentclass[14pt]{extarticle}

\usepackage{savesym}     % Conflicts
\usepackage{tikz}        % Circles
\usepackage{stackengine} % Marginalia

% Chord grids
\usepackage{gchords}
\savesymbol{chord}

% Chords
\usepackage{leadsheets}

\setchords {
  input-notation = german ,
  output-notation = german
}
\setleadsheets{
  smash-chords=true ,
}

% Russification
\usepackage[utf8]{inputenc}
\usepackage[T2A]{fontenc}

% https://tex.stackexchange.com/a/123926/230714
\newcommand\encircle[1]{%
  \tikz[baseline=(X.base)] 
    \node (X) [draw, shape=circle, inner sep=0] {\strut #1};}

\begin{document}

\begin{song}{title=Гамлет, composer=Александр Мирзаян}

  \begin{flushright}
    Александр Мирзаян
  \end{flushright}

\begin{verse}
\toplap{l}{\encircle{I}} Не знать бы мне^{Dm9}, с какой сорвусь струны, \\
Земную жи^{F#dim7}знь пройдя^{F#dim7/D} за серед^{Gm9}ину, \\
Не спутать ро^{Gm9}ль с преданьем стари^{Dm9}ны \\
И шепот Му^{E}зы - с пе^{Bsus4}снями Эри^{Asus\textsuperscript{4}}ний.  \\
^{A}
\end{verse}

\begin{verse}
\toplap{l}{\encircle{II}} Бы^{Bsus4}ть иль не быть? Кто зеркало унёс? - \\
Мы сквозь него так быстро пробегаем, \\
Что сам собо^{E}й решается вопрос, \\
И псы луну^{Bsus4} выка^{E}тывают ла^{Asus4}ем. \\
^{A}
\end{verse}

\begin{verse}
\toplap{l}{\encircle{III}} Зачем в песке^{Gm9} прокла^{A}дываем бро^{Dm9}д, \\
Теряем вё^{F#dim7}сла, пря^{F#dim7/D}чемся от ру^{Gm9}жей, \\
Когда везде достанет и собьё^{Dm9}т \\
Из главной ба^{E}шни гла^{Bsus4}вное ору^{Asus\textsuperscript{4}}жье? \\
 ^{A7}
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Где мы сейчас? Уже не разглядишь, \\
Куда наш парус призраки задули... \\
Ревела буря, гром, шумел камыш, \\
Рыдала мышь и все деревья гнулись. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Теперь круго^{Dm}м - вели^{E}кая стена^{Asus4}  \\
^{A7} И снег идё^{E\flat dim7}т в холо^{D7}дном нашем хра^{Gm9}ме, \\
И тишина - ты слышишь? - тишина^{Dm9} \\
На много ми^{E}ль звени^{Bsus4}т под купола^{Asus4}ми... \\
^{A7}
\end{verse}

\begin{verse}
\toplap{l}{\encircle{II}} Не может быть! Ужели не во сне \\
Свои мечты урезали по пояс \\
И утопили истину в вине, \\
Чтобы потом начать великий поиск?.. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{III}} Но нет, нигде нам не открылась дверь, \\
Хотя мы шли, сворачивая горы, \\
И чтоб от нас не скрылась наша цель, \\
Мы даже на ночь не снимали шоры. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Всегда к тебе, пленившая заря! \\
Кого твой луч не ослепил - за нами!.. \\
Ударим в щит, и Дания моя \\
Пошлёт данайцев с братскими дарами. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Века, века - о ближнем, о любви, \\
Кресты на грудь и камни на пророков... \\
Вот потому здесь храмы - на крови, \\
И ни на чем другом стоять не могут. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{III}} Ну, где Эдип? Здесь ждёт его родня; \\
Пусть разгадает сфинксову загадку - \\
Тогда и мы воспрянем ото сна, \\
Возьмём стакан и пустимся вприсядку. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Но чем, скажи, Горацио, связать \\
Всю эту жизнь, которая случилась?.. \\
И я напрасно мучаю тетрадь, \\
Залив в себя дешёвые чернила. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Неправда, нет! Лишь музыка права. \\
За то, что ей одной служил упорно, \\
С таких глубин открыла мне слова, \\
Что наверху они мне рвали горло. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Оставь, оставь, Офелия, глоток!.. \\
Горит язык, вытаскивая слово. \\
Так далеко унёс тебя поток, \\
И мне его не вычерпать шеломом. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Всё канет в нем: и говор наших лир, \\
И всей Европы призраки и вещи. \\
Я за тобой! На скандинавский мир \\
Одним безумьем больше или меньше... \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Я вижу всех, кто выйдет эту роль \\
Сыграть всерьёз, того еще не зная, \\
Что их судьбу и злую нашу боль \\
Одним безумьем я соединяю. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Вот гул затих. Я вышел на помост, \\
И мне в слезах внимают фарисеи. \\
И свет софитов бьёт меня насквозь, \\
И от него вокруг ещё темнее. \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Да, я хотел сказать: <<Остановись, \\
Покуда сам не ощутил всей кожей, \\
Как дорога, как дорога нам жизнь!..>> - \\
Когда открыл, что истина - дороже, \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{IV}} Что каждый шаг записан, как строка, \\
Где небеса свои расставят знаки: \\
Там высоко натянута струна \\
И предо мной - великий лист бумаги... \\
\end{verse}

\begin{verse}
\toplap{l}{\encircle{I}} Глухая ночь течёт за край листа. \\
Святые спят. Пустыни внемлют Богу. \\
Над головой колеблется звезда. \\
И я оди^{E}н вступа^{A}ю на доро^{Dm}гу. \\
^{A}\: \: \: ^{Dm}
\end{verse}
\end{song}

\chords{ % print a row of chords
  \mediumchords
  % fingers: n, x, o, p{n}, f{n}
  \def\numfrets{2}
  \origchord{t{I}}{x,x,bf1p1,f3p2,f2p1,f4p2}{E\flat dim7}
  \origchord{t{IV}}{x,x,bf1p1,f3p2,f2p1,f4p2}{F\sharp dim7}
  \origchord{t{IV}}{x,x,bo,f3p2,f2p1,f4p2}{F\sharp dim7/D}
  \def\numfrets{6}
  \origchord{t{V}}{f1p1,bf1p1,f2p3,f4p6,f1p1,f1p1}{Dm9}
  \def\numfrets{5}
  \origchord{t{V}}{f1p1,bf1p1,f3p3,f4p5,f2p2,f1p1}{Dm9}
  \origchord{t{III}}{bf1p1,f2p3,f4p5,f1p1,f1p1,f1p1}{Gm9}
}

\chords{ % print a row of chords
  \mediumchords
  %% % fingers: n, x, o, p{n}, f{n}
  \def\numfrets{3}
  \origchord{t{V}}{n,bo,f3p3,f4p3,f1p1,f1p1}{Asus4}
  \origchord{t{V}}{n,bo,f3p3,f2p2,f1p1,f1p1}{A}
  \origchord{t{VI}}{x,x,f3p3,f2p2,f1p1,o}{Bsus4}
  \def\numfrets{4}
  \origchord{t{IV}}{ob,f4p4,f3p3,f1p1,o,o}{E}
}

\end{document}
