gost (20feb12)

git-svn-id: svn://tug.org/texlive/trunk@25450 c570f23f-e606-0410-a88d-b1316a301751

43 files changed, 39502 insertions, 14106 deletions

diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2003.bst b/Master/texmf-dist/bibtex/bst/gost/gost2003.bst
new file mode 100644
index 00000000000..08cd81d091f
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2003.bst
@@ -0,0 +1,1935 @@
+%%
+%% This is file `gost2003.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,strict,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " " quote$ "--- " * *  write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "[" swap$ * "]" * }
+  if$
+}
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal enclose.square.brackets * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". " quote$ "--- " month * * * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    {
+      bbl.nnoaddress
+      publisher empty$
+        { "~: " * bbl.nopublisher * enclose.square.brackets }
+        { enclose.square.brackets "~: " * publisher * }
+      if$
+    }
+    {
+      address output
+      new.column
+      publisher empty$
+        { bbl.nopublisher enclose.square.brackets }
+        { publisher }
+      if$
+    }
+  if$
+  output
+}
+
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {format.authors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium}
+{ duplicate$ empty$
+    'skip$
+    { medium empty$
+        { " " * bbl.medium enclose.square.brackets * }
+        { " " * medium enclose.square.brackets * }
+%%        { bbl.medium enclose.square.brackets * }
+%%        { medium enclose.square.brackets * }
+      if$
+    }
+  if$
+}
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2003.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2003s.bst b/Master/texmf-dist/bibtex/bst/gost/gost2003s.bst
new file mode 100644
index 00000000000..b744c47b4dc
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2003s.bst
@@ -0,0 +1,2059 @@
+%%
+%% This is file `gost2003s.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,strict,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " " quote$ "--- " * *  write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "[" swap$ * "]" * }
+  if$
+}
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal enclose.square.brackets * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". " quote$ "--- " month * * * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    {
+      bbl.nnoaddress
+      publisher empty$
+        { "~: " * bbl.nopublisher * enclose.square.brackets }
+        { enclose.square.brackets "~: " * publisher * }
+      if$
+    }
+    {
+      address output
+      new.column
+      publisher empty$
+        { bbl.nopublisher enclose.square.brackets }
+        { publisher }
+      if$
+    }
+  if$
+  output
+}
+
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {format.authors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium}
+{ duplicate$ empty$
+    'skip$
+    { medium empty$
+        { " " * bbl.medium enclose.square.brackets * }
+        { " " * medium enclose.square.brackets * }
+%%        { bbl.medium enclose.square.brackets * }
+%%        { medium enclose.square.brackets * }
+      if$
+    }
+  if$
+}
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+  "l" change.case$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2003s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008.bst
new file mode 100644
index 00000000000..41eaf17552d
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008.bst
@@ -0,0 +1,1946 @@
+%%
+%% This is file `gost2008.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008l.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008l.bst
new file mode 100644
index 00000000000..2437f2f7f48
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008l.bst
@@ -0,0 +1,1934 @@
+%%
+%% This is file `gost2008l.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,eprint,long')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    { format.authors output
+      new.sentence
+    }
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after} { }
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008l.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008ls.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008ls.bst
new file mode 100644
index 00000000000..315cd40ea95
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008ls.bst
@@ -0,0 +1,2058 @@
+%%
+%% This is file `gost2008ls.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,eprint,long,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    { format.authors output
+      new.sentence
+    }
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after} { }
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+  "l" change.case$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008ls.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008n.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008n.bst
new file mode 100644
index 00000000000..bad578f1a16
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008n.bst
@@ -0,0 +1,2287 @@
+%%
+%% This is file `gost2008n.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,natbib,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+%%-------------------------------------------------------------------
+%% This is an author-year citation style bibliography.
+%% It requires a special package file to function properly
+%% such as natbib.sty by Patrick W. Daly.
+%% The form of the \bibitem entries is
+%%   \bibitem[Jones et al.(1990)]{key}...
+%%   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
+%% where the label part (in brackets) consists of the author names,
+%% as they should appear in the citation, with the year in parentheses following.
+%% There must be no space before the opening parenthesis!
+%% A full list of authors may also follow the year.
+%% In natbib.sty, it is possible to define the type of enclosures that is
+%% really wanted (brackets or parentheses), but in either case, there must
+%% be parentheses in the label.
+%% The \cite command functions as follows:
+%%   \citet{key}              => Jones et al. (1990)
+%%   \citet*{key}             => Jones, Baker, and Smith (1990)
+%%   \citep{key}              => (Jones et al., 1990)
+%%   \citep*{key}             => (Jones, Baker, and Smith, 1990)
+%%   \citep[chap. 2]{key}     => (Jones et al., 1990, chap. 2)
+%%   \citep[e.g.][]{key}      => (e.g. Jones et al., 1990)
+%%   \citep[e.g.][p. 32]{key} => (e.g. Jones et al., p. 32)
+%%   \citeauthor{key}         => Jones et al.
+%%   \citeauthor*{key}        => Jones, Baker, and Smith
+%%   \citeyear{key}           => 1990
+%%---------------------------------------------------------------------
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label extra.label sort.label short.list }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.and}      %  { "\bbland{}" }
+{ curlanguage "english" =
+   {"and"}
+   { curlanguage "german" =
+      { "und" }
+      { curlanguage "ukrainian" =
+         {"{\cyrii}"}
+         { curlanguage "russian" =
+            {"{\cyri}"}
+            {"language is not defined: " language  "and" * * warning$ "and"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    %{ pop$ " et~al." * }
+    { pop$ " " bbl.etal * * }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            %{ " et~al." * }
+            { " " bbl.etal * * }
+            %{ " and " * s #2 "{vv~}{ll}" format.name$ * }
+            { " " bbl.and " " * * * s #2 "{vv~}{ll}" format.name$ * }
+          if$
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.key}
+{ empty$
+    { key field.or.null }
+    { "" }
+  if$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            %'key          %% causes lost of year
+            { "{}" key * } %% Bug in bibtex8 ??
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+  extra.label * % new in v.1.2
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {format.full.names}
+{'s :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+              curlanguage "english" =
+              and
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+          %t "~others" =
+          %or
+                %{ " et~al." * }
+                { " " bbl.etal * * }
+                %{ " and " * t * }
+                { " " bbl.and " " * * * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
+  cite$ write$
+  "}" write$
+  language empty$
+    { "english" 'curlanguage := }
+    {language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+%%  author.key.label
+%%  year parenthesify *
+%%  "; lbl:" label * *
+%%  "; mfn:"  make.full.names * *
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  editor format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  author format.key output
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  author format.key output
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+  "l" change.case$
+}
+
+
+INTEGERS { seq.num }
+
+FUNCTION {init.seq}
+{ #0 'seq.num :=}
+
+EXECUTE {init.seq}
+
+FUNCTION {int.to.fix}
+{ "000000000" swap$ int.to.str$ *
+  #-1 #10 substring$
+}
+
+FUNCTION {presort}%#3
+{
+  calc.label               % computes label
+  label sortify            % initiates sort.label
+  "    "
+  *
+  seq.num #1 + 'seq.num := % advance seq.num
+  seq.num  int.to.fix      % prepend seq.num with 0s
+  'sort.label :=           % set sort.label to seq.num
+  sort.label *             % append seq.num to label
+  #1 entry.max$ substring$ % cut if too long
+  'sort.key$ :=            % set sort.key$
+}
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { number.label longest.label.width last.extra.num  }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
+  #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
+    }
+  if$
+  number.label #1 + 'number.label :=
+}
+
+ITERATE {forward.pass}
+
+FUNCTION {reverse.pass}
+{ next.extra "b" =
+    { "a" 'extra.label := }
+    'skip$
+  if$
+  extra.label 'next.extra :=
+  extra.label
+  duplicate$ empty$
+    'skip$
+    { "{\natexlab{" swap$ * "}}" * }
+  if$
+  'extra.label :=
+  label extra.label * 'label :=
+}
+
+REVERSE {reverse.pass}
+
+FUNCTION {bib.sort.order}
+{ sort.label  'sort.key$ :=
+}
+
+ITERATE {bib.sort.order}
+
+SORT
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  "\providecommand{\natexlab}[1]{#1}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008n.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008ns.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008ns.bst
new file mode 100644
index 00000000000..c62d17b6d25
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008ns.bst
@@ -0,0 +1,2421 @@
+%%
+%% This is file `gost2008ns.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,natbib,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+%%-------------------------------------------------------------------
+%% This is an author-year citation style bibliography.
+%% It requires a special package file to function properly
+%% such as natbib.sty by Patrick W. Daly.
+%% The form of the \bibitem entries is
+%%   \bibitem[Jones et al.(1990)]{key}...
+%%   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
+%% where the label part (in brackets) consists of the author names,
+%% as they should appear in the citation, with the year in parentheses following.
+%% There must be no space before the opening parenthesis!
+%% A full list of authors may also follow the year.
+%% In natbib.sty, it is possible to define the type of enclosures that is
+%% really wanted (brackets or parentheses), but in either case, there must
+%% be parentheses in the label.
+%% The \cite command functions as follows:
+%%   \citet{key}              => Jones et al. (1990)
+%%   \citet*{key}             => Jones, Baker, and Smith (1990)
+%%   \citep{key}              => (Jones et al., 1990)
+%%   \citep*{key}             => (Jones, Baker, and Smith, 1990)
+%%   \citep[chap. 2]{key}     => (Jones et al., 1990, chap. 2)
+%%   \citep[e.g.][]{key}      => (e.g. Jones et al., 1990)
+%%   \citep[e.g.][p. 32]{key} => (e.g. Jones et al., p. 32)
+%%   \citeauthor{key}         => Jones et al.
+%%   \citeauthor*{key}        => Jones, Baker, and Smith
+%%   \citeyear{key}           => 1990
+%%---------------------------------------------------------------------
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label extra.label sort.label short.list }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.and}      %  { "\bbland{}" }
+{ curlanguage "english" =
+   {"and"}
+   { curlanguage "german" =
+      { "und" }
+      { curlanguage "ukrainian" =
+         {"{\cyrii}"}
+         { curlanguage "russian" =
+            {"{\cyri}"}
+            {"language is not defined: " language  "and" * * warning$ "and"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    %{ pop$ " et~al." * }
+    { pop$ " " bbl.etal * * }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            %{ " et~al." * }
+            { " " bbl.etal * * }
+            %{ " and " * s #2 "{vv~}{ll}" format.name$ * }
+            { " " bbl.and " " * * * s #2 "{vv~}{ll}" format.name$ * }
+          if$
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.key}
+{ empty$
+    { key field.or.null }
+    { "" }
+  if$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            %'key          %% causes lost of year
+            { "{}" key * } %% Bug in bibtex8 ??
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+  extra.label * % new in v.1.2
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {format.full.names}
+{'s :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+              curlanguage "english" =
+              and
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+          %t "~others" =
+          %or
+                %{ " et~al." * }
+                { " " bbl.etal * * }
+                %{ " and " * t * }
+                { " " bbl.and " " * * * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
+  cite$ write$
+  "}" write$
+  language empty$
+    { "english" 'curlanguage := }
+    {language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+%%  author.key.label
+%%  year parenthesify *
+%%  "; lbl:" label * *
+%%  "; mfn:"  make.full.names * *
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  editor format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  author format.key output
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  author format.key output
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+  "l" change.case$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+%% This version from plainnat.bst
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+FUNCTION {author.editor.sort}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { "to sort, need author, editor, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { editor sort.format.names }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+
+FUNCTION {author.organization.sort}
+{ author empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need author, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+
+FUNCTION {editor.organization.sort}
+{ editor empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need editor, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { editor sort.format.names }
+  if$
+}
+
+FUNCTION {presort}%#2
+{ calc.label
+  label sortify
+  %author.title.sort
+  "    "
+  *
+  % ========= plainnat.bst =========
+  author.title.sort
+  "    "
+  *
+  year field.or.null sortify
+  *
+  "    "
+  *
+  %cite$
+  title field.or.null sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.label :=
+  sort.label *
+  % ================================
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { number.label longest.label.width last.extra.num  }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
+  #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
+    }
+  if$
+  number.label #1 + 'number.label :=
+}
+
+ITERATE {forward.pass}
+
+FUNCTION {reverse.pass}
+{ next.extra "b" =
+    { "a" 'extra.label := }
+    'skip$
+  if$
+  extra.label 'next.extra :=
+  extra.label
+  duplicate$ empty$
+    'skip$
+    { "{\natexlab{" swap$ * "}}" * }
+  if$
+  'extra.label :=
+  label extra.label * 'label :=
+}
+
+REVERSE {reverse.pass}
+
+FUNCTION {bib.sort.order}
+{ sort.label  'sort.key$ :=
+}
+
+ITERATE {bib.sort.order}
+
+SORT
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  "\providecommand{\natexlab}[1]{#1}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008ns.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost2008s.bst b/Master/texmf-dist/bibtex/bst/gost/gost2008s.bst
new file mode 100644
index 00000000000..b1f47417561
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost2008s.bst
@@ -0,0 +1,2070 @@
+%%
+%% This is file `gost2008s.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,modern,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+  "l" change.case$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost2008s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost705s.bst b/Master/texmf-dist/bibtex/bst/gost/gost705s.bst
deleted file mode 100644
index 8e19d2f53ab..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/gost705s.bst
+++ /dev/null
@@ -1,1672 +0,0 @@
-%%
-%% This is file `gost705s.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% gost.dtx  (with options: `gost705s')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% GOST 7.0.5-2008
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%%
-%%
-%% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
-%% bibtex8 -B -c <encoding>.csf <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " \BibDash " write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-                       }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.\ }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{  curlanguage "english" =
-    {"Compiler "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRU\cyrk\cyrl.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRS\cyro\cyrs\cyrt.\ }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{\cyr\cyrv\cyri\cyrd.}"}
-      { curlanguage "russian" =
-        {"{\cyr\cyri\cyrz\cyrd.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT\cyro\cyrm"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-    {"Issue"}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp."}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrii\cyrz}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri\cyrz}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri~\cyrd\cyrr.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRN\cyro\cyrm\cyre\cyrr"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-    {"number"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
-      { curlanguage "german" =
-         {"{anzahl}"}
-         {"language is not defined: " language  "number" * * warning$ "number"}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\textnumero}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"No."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{\cyr\textnumero}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-    {"in"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrv}"}
-           {"language is not defined: " language  "in" * * warning$ "in"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-    {"In"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"\CYRV"}
-           {"language is not defined: " language  "In" * * warning$ "In"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyre\cyrn\cyrn\cyrya:"}
-        { curlanguage "russian" =
-           {"{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya: }"}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{f.}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " quote$ "--- " month * * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition "l" change.case$ " " * bbl.edition * }
-        { convert.edition "t" change.case$ " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "URL: \BibUrl{" url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-FUNCTION {sortify}
-{ purify$
-  "l" change.case$
-}
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {sort.format.names}
-{ 's :=
-  #1 'nameptr :=
-  ""
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { nameptr #1 >
-        { "   " * }
-        'skip$
-      if$
-      s nameptr
-      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
-      format.name$ 't :=
-      nameptr numnames = t "others" = and
-        { "et al" * }
-        { t sortify * }
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {sort.format.title}
-{ 't :=
-  "A " #2
-    "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
-  sortify
-  #1 global.max$ substring$
-}
-
-FUNCTION {author.sort}
-{ author empty$
-    { key empty$
-        { "to sort, need author or key in " cite$ * warning$
-          ""
-        }
-        { key sortify }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.title.sort}
-{ author empty$
-    { title empty$
-        { key empty$
-            { "to sort, need author, title, or key in " cite$ * warning$
-              ""
-            }
-            { key sortify }
-          if$
-        }
-        { title sort.format.title }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-     }
-  if$
-}
-
-FUNCTION {presort}
-{
-  author.title.sort
-  "   "
-  *
-  year field.or.null sortify
-  *
-  "   "
-  *
-  title field.or.null
-  sort.format.title
-  *
-  #1 entry.max$ substring$
-  'sort.key$ :=
-}
-
-ITERATE {presort}
-
-SORT
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `gost705s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost705u.bst b/Master/texmf-dist/bibtex/bst/gost/gost705u.bst
deleted file mode 100644
index 00cdcaaedfa..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/gost705u.bst
+++ /dev/null
@@ -1,1560 +0,0 @@
-%%
-%% This is file `gost705u.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% gost.dtx  (with options: `gost705u')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% GOST 7.0.5-2008
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%%
-%%
-%% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
-%% bibtex8 -B -c <encoding>.csf <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " \BibDash " write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-                       }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.\ }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{  curlanguage "english" =
-    {"Compiler "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRU\cyrk\cyrl.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRS\cyro\cyrs\cyrt.\ }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{\cyr\cyrv\cyri\cyrd.}"}
-      { curlanguage "russian" =
-        {"{\cyr\cyri\cyrz\cyrd.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT\cyro\cyrm"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-    {"Issue"}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp."}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrii\cyrz}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri\cyrz}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri~\cyrd\cyrr.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRN\cyro\cyrm\cyre\cyrr"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-    {"number"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
-      { curlanguage "german" =
-         {"{anzahl}"}
-         {"language is not defined: " language  "number" * * warning$ "number"}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\textnumero}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"No."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{\cyr\textnumero}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-    {"in"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrv}"}
-           {"language is not defined: " language  "in" * * warning$ "in"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-    {"In"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"\CYRV"}
-           {"language is not defined: " language  "In" * * warning$ "In"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyre\cyrn\cyrn\cyrya:"}
-        { curlanguage "russian" =
-           {"{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya: }"}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{f.}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " quote$ "--- " month * * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition "l" change.case$ " " * bbl.edition * }
-        { convert.edition "t" change.case$ " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "URL: \BibUrl{" url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `gost705u.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost780.bst b/Master/texmf-dist/bibtex/bst/gost/gost780.bst
new file mode 100644
index 00000000000..94ebc47717d
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/gost780.bst
@@ -0,0 +1,1853 @@
+%%
+%% This is file `gost780.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " " quote$ "--- " * *  write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { ": " * write$ }
+                        { output.state after.semicolumn =
+                            { "; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\cyrv\cyri\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title "t" change.case$ }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". " quote$ "--- " month * * * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+FUNCTION {output.address.publisher.date}
+{
+  output.address.publisher
+  format.date output
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition "l" change.case$ " " * bbl.edition * }
+        { convert.edition "t" change.case$ " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type "t" change.case$
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {format.authors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "\BibUrl{ " url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi} { }
+
+FUNCTION {add.medium} { }
+
+
+FUNCTION {output.eprint.url}
+{
+    format.url output
+}
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.slash
+  school "school" output.check
+  new.block
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
+  new.sentence
+  format.url output
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.slash
+  school "school" output.check
+  new.block
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
+  new.sentence
+  format.url output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.slash
+  school "school" output.check
+  new.block
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
+  new.sentence
+  format.url output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.slash
+  school "school" output.check
+  new.block
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
+  new.sentence
+  format.url output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `gost780.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost780s.bst b/Master/texmf-dist/bibtex/bst/gost/gost780s.bst
index aceff50fd34..a0a9e0646b3 100644
--- a/Master/texmf-dist/bibtex/bst/gost/gost780s.bst
+++ b/Master/texmf-dist/bibtex/bst/gost/gost780s.bst
@@ -4,13 +4,7 @@
 %%
 %% The original source files were:
 %%
-%% gost.dtx  (with options: `gost780s')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
+%% gost.dtx  (with options: `bst,sort')
 %% 
 %% This file may be distributed and/or modified under the
 %% conditions of the LaTeX Project Public License, either version 1.3
@@ -20,46 +14,21 @@
 %% and version 1.3 or later is part of all distributions of LaTeX
 %% version 2005/12/01 or later.
 %% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
 %% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
 %% 
+
+
+
 %%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% (obsolete)
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%%
-%%
-%% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
-%% bibtex8 -B -c <encoding>.csf <your_document>
-%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
 
 ENTRY
   { address
@@ -80,24 +49,30 @@ ENTRY
     number
     organization
     pages
-    numpages
     publisher
     school
     series
     title
+    medium % new in v.2.
     type
     volume
     year
     language
     booklanguage
+    numpages
     url
     urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
   }
   {}
   { label }
 
 INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
+after.dblslash after.slash after.column after.semicolumn }
 
 FUNCTION {init.state.consts}
 { #0 'before.all :=
@@ -116,18 +91,18 @@ STRINGS { curlanguage }
 
 FUNCTION {change.language}
 { booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
   if$
 }
 
 FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
+{
+  swap$
   output.state mid.sentence =
     { ", " * write$ }
     { output.state after.block =
@@ -143,14 +118,14 @@ FUNCTION {output.nonnull}
                 { output.state after.slash =
                     { "~/ " * write$ }
                     { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-                       }
-                    if$
-                  }
+                        { ": " * write$ }
+                        { output.state after.semicolumn =
+                            { "; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
                   if$
                 }
               if$
@@ -161,7 +136,6 @@ FUNCTION {output.nonnull}
       mid.sentence 'output.state :=
     }
   if$
-%%%  s
 }
 
 FUNCTION {output}
@@ -253,6 +227,17 @@ FUNCTION {or}
   if$
 }
 
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
 FUNCTION {non.stop}
 { duplicate$
    "}" * add.period$
@@ -291,6 +276,13 @@ FUNCTION {new.sentence.checkb}
   if$
 }
 
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
 FUNCTION {field.or.null}
 { duplicate$ empty$
     { pop$ "" }
@@ -305,287 +297,430 @@ FUNCTION {emphasize}
   if$
 }
 
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
 FUNCTION {space.word}
 { " " swap$ * " " * }
 
 FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.\ }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+      { curlanguage "russian" =
+         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.cmplr}
-{  curlanguage "english" =
-    {"Compiler "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRU\cyrk\cyrl.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRS\cyro\cyrs\cyrt.\ }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\CYRU\cyrk\cyrl.}"}
+         { curlanguage "russian" =
+            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.edition} %  { "\bbledition{}" }
 { curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
+   {"edition"}
+   { curlanguage "ukrainian" =
       {"{\cyr\cyrv\cyri\cyrd.}"}
       { curlanguage "russian" =
-        {"{\cyr\cyri\cyrz\cyrd.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
+         {"{\cyr\cyri\cyrz\cyrd.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
             { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
             if$}
-          if$}
-        if$}
+         if$}
       if$}
-    if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT\cyro\cyrm"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRT\cyro\cyrm" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"\CYRT."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-    {"Issue"}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp."}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"\CYRV\cyri\cyrp."}
+      { curlanguage "russian" =
+         {"\CYRV\cyrery\cyrp."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrii\cyrz}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri\cyrz}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{\cyr\cyrii\cyrz}" }
+         { curlanguage "russian" =
+            { "{\cyr\cyri\cyrz}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri~\cyrd\cyrr.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+         { curlanguage "russian" =
+            {"{\cyr\cyri~\cyrd\cyrr.}"}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
+
 
 FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
 { curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRN\cyro\cyrm\cyre\cyrr"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.number}  %  { "\bblnumber{}" }
 { curlanguage "english" =
-    {"number"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
       {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
       { curlanguage "german" =
-         {"{anzahl}"}
+         {"{Heft}"} %%% { "anzahl" }???
          {"language is not defined: " language  "number" * * warning$ "number"}
       if$}
-    if$}
-  if$
-}
+   if$}
+if$}
 
 FUNCTION {bbl.nr}     %   { "\bblno{}" }
 { curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\textnumero}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{\cyr\textnumero}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.nnr}     %   { "\bblno{}" }
 { curlanguage "english" =
-    {"No."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{\cyr\textnumero}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\textnumero}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-    {"in"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrv}"}
-           {"language is not defined: " language  "in" * * warning$ "in"}
-      if$}
-  if$
-}
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{\cyr\cyrv}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
 
 FUNCTION {bbl.iin}  %     { "\bblIn{}" }
 { curlanguage "english" = curlanguage "german" = or
-    {"In"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"\CYRV"}
-           {"language is not defined: " language  "In" * * warning$ "In"}
-      if$}
-  if$
-}
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "\CYRV" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
 
 FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.page}   %   { "\bblp."
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\cyrs.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.ppages}%    { "\bblPp." }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.ppage}  %   { "\bblP." }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{\cyr\CYRS.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
 
 FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyre\cyrn\cyrn\cyrya:"}
-        { curlanguage "russian" =
-           {"{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya: }"}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+      { curlanguage "russian" =
+         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyrm.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\cyrb.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{\cyr\CYRB.\ \cyri.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "\cyrr\cyru\cyrk." }
+      { curlanguage "ukrainian" =
+        { "\cyrr\cyru\cyrk." }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+      { curlanguage "ukrainian" =
+        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
 
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
 
 INTEGERS { nameptr namesleft numnames }
 
@@ -597,17 +732,17 @@ FUNCTION {format.names}
 
 
 FUNCTION {format.names.rev}
-{ 's :=
+{
+  's :=
   #1 'nameptr :=
   s num.names$ 'numnames :=
   numnames 'namesleft :=
     { namesleft #0 > }
     { s nameptr
-      "{f.}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
+      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
       nameptr #1 >
-        {
-          nameptr #4 =
+        { nameptr #4 =
           numnames #4 > and
             { "others" 't :=
               #1 'namesleft := }
@@ -615,10 +750,9 @@ FUNCTION {format.names.rev}
           if$
           namesleft #1 >
             { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
+            { t "others" =
+          t "~others" =
+          or
                 { " " * bbl.etal * }
                 { ", " * t * }
               if$
@@ -633,6 +767,7 @@ FUNCTION {format.names.rev}
   while$
 }
 
+
 FUNCTION {format.authors}
 { author empty$
     { "" }
@@ -640,6 +775,7 @@ FUNCTION {format.authors}
   if$
 }
 
+
 FUNCTION {format.bookauthors}
 { bookauthor empty$
     { "" }
@@ -657,31 +793,42 @@ FUNCTION {format.authors.after}
 FUNCTION {format.bookauthors.after}
 { bookauthor empty$
     { "" }
-    { bookauthor format.names.rev}
+    { bookauthor format.names.rev}% always cuts to 4 persons
   if$
 }
 
 FUNCTION {format.editors.after}
 { editor empty$
     { "" }
-    { bbl.edby editor format.names.rev *
-    }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
   if$
 }
 
 FUNCTION {format.compiler.after}
 { compiler empty$
     { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
   if$
 }
 
 FUNCTION {format.title}
 { title empty$
     { "" }
-    { title "t" change.case$
-    }
+    { title "t" change.case$ }
   if$
 }
 
@@ -702,35 +849,37 @@ FUNCTION {format.date}
   if$
 }
 
-FUNCTION {output.address.publisher.date}
+FUNCTION {output.address.publisher}
 {
-      address empty$
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
         'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+FUNCTION {output.address.publisher.date}
+{
+  output.address.publisher
+  format.date output
 }
 
 FUNCTION {output.bibitem}
 { newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
+  "\bibitem" write$
+  cite$ bracify write$
   newline$
   language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
   if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
   ""
   before.all 'output.state :=
 }
@@ -962,14 +1111,13 @@ FUNCTION {format.thesis.type}
   if$
 }
 
-FUNCTION {format.tr.number}
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
 { type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
+   { bbl.techreport }
+   'type
   if$
 }
 
@@ -985,18 +1133,30 @@ FUNCTION {author.before}
   if$
 }
 
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
 
 FUNCTION {author.after}
 {
@@ -1006,6 +1166,7 @@ FUNCTION {author.after}
        new.semicolumn }
   if$
 }
+
 FUNCTION {bookauthor.after}
 {
   bookauthor empty$
@@ -1044,7 +1205,7 @@ FUNCTION {format.url}
       "\BibUrl{ " url * "}" *
       urldate empty$
         { "" }
-        { " (" bbl.urldate * urldate * ")" * }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
       if$ *
     }
   if$
@@ -1059,16 +1220,37 @@ FUNCTION {format.annote}
   if$
 }
 
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi} { }
+
+FUNCTION {add.medium} { }
+
+
+FUNCTION {output.eprint.url}
+{
+    format.url output
+}
+
 FUNCTION {article}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.title "title" output.check
+  format.title add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
-  journal emphasize "journal" output.check
+  journal emphasize add.doi "journal" output.check % new in v.2
   new.block
-  format.date output
+  format.date "year" output.check
   new.block
   format.volume output
   format.number output
@@ -1077,15 +1259,16 @@ FUNCTION {article}
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
 FUNCTION {book}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.btitle "title" output.check
+  format.btitle add.doi add.medium "title" output.check
   new.slash
   author.after
   editor.organization.after
@@ -1094,7 +1277,8 @@ FUNCTION {book}
   new.block
   format.edition output
   new.block
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   new.block
@@ -1102,38 +1286,39 @@ FUNCTION {book}
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
 FUNCTION {booklet}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.title "title" output.check
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   editor.organization.after
   new.block
   howpublished output
   address output
-  format.date output
+  format.date "year" output.check
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
 FUNCTION {inbook}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.btitle "title" output.check
+  format.btitle add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
-  bookauthor.before
   booktitle "booktitle" output.check
   new.slash
   bookauthor.after
@@ -1143,7 +1328,8 @@ FUNCTION {inbook}
   new.block
   format.number.series output
   new.sentence
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   new.block
@@ -1151,16 +1337,17 @@ FUNCTION {inbook}
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
 FUNCTION {incollection}
-{ output.bibitem
+{
+  output.bibitem
   author.before
   new.sentence
-  format.title "title" output.check
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
@@ -1168,7 +1355,8 @@ FUNCTION {incollection}
   new.slash
   editor.organization.after
   new.block
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   format.number.series output
@@ -1177,7 +1365,26 @@ FUNCTION {incollection}
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
   format.annote output
   fin.entry
 }
@@ -1186,7 +1393,7 @@ FUNCTION {inproceedings}
 { output.bibitem
   author.before
   new.sentence
-  format.title "title" output.check
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
@@ -1197,28 +1404,18 @@ FUNCTION {inproceedings}
   format.bvolume output
   format.number.series output
   new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.pages.page output
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {conference} { inproceedings }
-
 FUNCTION {manual}
 { output.bibitem
   author empty$
@@ -1232,7 +1429,7 @@ FUNCTION {manual}
     { format.authors output.nonnull }
   if$
   new.block
-  format.btitle "title" output.check
+  format.btitle add.doi add.medium "title" output.check
   author empty$
     { organization empty$
     {
@@ -1249,51 +1446,74 @@ FUNCTION {manual}
     }
   if$
   format.edition output
-  format.date output
+  format.date "year" output.check
   new.block
   note output
   new.sentence
-  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {mastersthesis}
+FUNCTION {misc}
 { output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
   new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
   format.date "year" output.check
   new.block
   note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
   new.block
-  format.url output
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {misc}
+FUNCTION {online}
 { output.bibitem
   format.authors output
   title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
   new.block
+  output.address.publisher
   format.date output
   new.block
-  note output
+  output.eprint.url
   new.sentence
-  format.url output
+  note output
   format.annote output
   fin.entry
 }
 
-FUNCTION {phdthesis}
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
 { output.bibitem
   format.authors "author" output.check
   new.sentence
@@ -1313,25 +1533,50 @@ FUNCTION {phdthesis}
   fin.entry
 }
 
-FUNCTION {proceedings}
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
 { output.bibitem
+  format.authors "author" output.check
+  new.sentence
   format.btitle "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
   new.slash
-  editor.organization.after
+  school "school" output.check
   new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
+  output.address.publisher.date
   new.block
+  format.pages.page output
   note output
   new.sentence
   format.url output
@@ -1339,22 +1584,19 @@ FUNCTION {proceedings}
   fin.entry
 }
 
-FUNCTION {techreport}
+FUNCTION {masterthesis}
 { output.bibitem
-  author.before
+  format.authors "author" output.check
   new.sentence
-  format.title "title" output.check
+  format.btitle "title" output.check
   new.column
-  format.tr.number output.nonnull
+  bbl.mthesis format.thesis.type output.nonnull
   new.slash
-  author.after
-  editor.organization.after
+  school "school" output.check
   new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
+  output.address.publisher.date
   new.block
+  format.pages.page output
   note output
   new.sentence
   format.url output
@@ -1362,33 +1604,54 @@ FUNCTION {techreport}
   fin.entry
 }
 
-FUNCTION {unpublished}
+FUNCTION {dscithesis}
 { output.bibitem
-  author.before
+  format.authors "author" output.check
+  new.sentence
   format.btitle "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
   new.slash
-  author.after
-  editor.organization.after
+  school "school" output.check
   new.block
-  note "note" output.check
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
   new.sentence
   format.url output
   format.annote output
   fin.entry
 }
 
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
   new.block
-  format.date output
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
   new.block
-  format.url output
-  new.sentence
   note output
   format.annote output
   fin.entry
@@ -1397,69 +1660,143 @@ FUNCTION {online}
 FUNCTION {default.type} { misc }
 
 MACRO {jan} {"\bbljan{}"}
-
 MACRO {feb} {"\bblfeb{}"}
-
 MACRO {mar} {"\bblmar{}"}
-
 MACRO {apr} {"\bblapr{}"}
-
 MACRO {may} {"\bblmay{}"}
-
 MACRO {jun} {"\bbljun{}"}
-
 MACRO {jul} {"\bbljul{}"}
-
 MACRO {aug} {"\bblaug{}"}
-
 MACRO {sep} {"\bblsep{}"}
-
 MACRO {oct} {"\bbloct{}"}
-
 MACRO {nov} {"\bblnov{}"}
-
 MACRO {dec} {"\bbldec{}"}
 
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
 
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
 
 READ
 
@@ -1469,17 +1806,9 @@ FUNCTION {sortify}
   "l" change.case$
 }
 
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
 FUNCTION {sort.format.names}
 { 's :=
   #1 'nameptr :=
@@ -1496,6 +1825,7 @@ FUNCTION {sort.format.names}
       format.name$ 't :=
       nameptr numnames = t "others" = and
         { "et al" * }
+        %{ bbl.etal * }
         { t sortify * }
       if$
       nameptr #1 + 'nameptr :=
@@ -1503,18 +1833,27 @@ FUNCTION {sort.format.names}
     }
   while$
 }
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
 
 FUNCTION {sort.format.title}
 { 't :=
   "A " #2
     "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
   sortify
   #1 global.max$ substring$
 }
 
+%% =====================================
+%% This version from old gost package.
+%%
 FUNCTION {author.sort}
 { author empty$
     { key empty$
@@ -1532,6 +1871,8 @@ FUNCTION {author.sort}
     }
   if$
 }
+%% This version from plainnat.bst
+%% =====================================
 
 FUNCTION {author.title.sort}
 { author empty$
@@ -1555,7 +1896,7 @@ FUNCTION {author.title.sort}
   if$
 }
 
-FUNCTION {presort}
+FUNCTION {presort}%#1
 {
   author.title.sort
   "   "
@@ -1571,6 +1912,7 @@ FUNCTION {presort}
   'sort.key$ :=
 }
 
+
 ITERATE {presort}
 
 SORT
@@ -1586,7 +1928,9 @@ FUNCTION {initialize.longest.label}
   #0 'longest.label.width :=
 }
 
-FUNCTION {longest.label.pass}
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
 { number.label int.to.str$ 'label :=
   number.label #1 + 'number.label :=
   label width$ longest.label.width >
@@ -1597,19 +1941,19 @@ FUNCTION {longest.label.pass}
   if$
 }
 
-EXECUTE {initialize.longest.label}
+ITERATE {forward.pass}
 
-ITERATE {longest.label.pass}
 
 FUNCTION {begin.bib}
 { "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
   "\def\selectlanguageifdefined#1{"                  write$ newline$
   "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
   "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
   "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
   "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
   "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
   preamble$ empty$
     'skip$
     { preamble$ write$ newline$ }
diff --git a/Master/texmf-dist/bibtex/bst/gost/gost780u.bst b/Master/texmf-dist/bibtex/bst/gost/gost780u.bst
deleted file mode 100644
index 9e6e231db99..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/gost780u.bst
+++ /dev/null
@@ -1,1521 +0,0 @@
-%%
-%% This is file `gost780u.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% gost.dtx  (with options: `gost780u')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% (obsolete)
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%%
-%%
-%% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
-%% bibtex8 -B -c <encoding>.csf <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " " quote$ "--- " * *  write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-                       }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.\ }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{  curlanguage "english" =
-    {"Compiler "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRU\cyrk\cyrl.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRS\cyro\cyrs\cyrt.\ }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{\cyr\cyrv\cyri\cyrd.}"}
-      { curlanguage "russian" =
-        {"{\cyr\cyri\cyrz\cyrd.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT\cyro\cyrm"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-    {"Issue"}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp."}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrii\cyrz}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri\cyrz}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri~\cyrd\cyrr.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRN\cyro\cyrm\cyre\cyrr"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-    {"number"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
-      { curlanguage "german" =
-         {"{anzahl}"}
-         {"language is not defined: " language  "number" * * warning$ "number"}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\textnumero}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"No."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{\cyr\textnumero}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-    {"in"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrv}"}
-           {"language is not defined: " language  "in" * * warning$ "in"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-    {"In"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"\CYRV"}
-           {"language is not defined: " language  "In" * * warning$ "In"}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyre\cyrn\cyrn\cyrya:"}
-        { curlanguage "russian" =
-           {"{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya: }"}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{
-  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{f.}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " quote$ "--- " month * * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition "l" change.case$ " " * bbl.edition * }
-        { convert.edition "t" change.case$ " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type "t" change.case$
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {format.authors.after output
-       new.semicolumn }
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {format.bookauthors.after output
-       new.semicolumn }
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "\BibUrl{ " url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `gost780u.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2003.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2003.bst
new file mode 100644
index 00000000000..59786b4039b
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2003.bst
@@ -0,0 +1,1930 @@
+%%
+%% This is file `ugost2003.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,strict,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " " quote$ "--- " * *  write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "[" swap$ * "]" * }
+  if$
+}
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal enclose.square.brackets * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". " quote$ "--- " month * * * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    {
+      bbl.nnoaddress
+      publisher empty$
+        { "~: " * bbl.nopublisher * enclose.square.brackets }
+        { enclose.square.brackets "~: " * publisher * }
+      if$
+    }
+    {
+      address output
+      new.column
+      publisher empty$
+        { bbl.nopublisher enclose.square.brackets }
+        { publisher }
+      if$
+    }
+  if$
+  output
+}
+
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {format.authors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium}
+{ duplicate$ empty$
+    'skip$
+    { medium empty$
+        { " " * bbl.medium enclose.square.brackets * }
+        { " " * medium enclose.square.brackets * }
+%%        { bbl.medium enclose.square.brackets * }
+%%        { medium enclose.square.brackets * }
+      if$
+    }
+  if$
+}
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2003.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2003s.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2003s.bst
new file mode 100644
index 00000000000..b85d786eb30
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2003s.bst
@@ -0,0 +1,2053 @@
+%%
+%% This is file `ugost2003s.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,strict,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.80-2000 for bibliographic records.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " " quote$ "--- " * *  write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "[" swap$ * "]" * }
+  if$
+}
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal enclose.square.brackets * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". " quote$ "--- " month * * * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    {
+      bbl.nnoaddress
+      publisher empty$
+        { "~: " * bbl.nopublisher * enclose.square.brackets }
+        { enclose.square.brackets "~: " * publisher * }
+      if$
+    }
+    {
+      address output
+      new.column
+      publisher empty$
+        { bbl.nopublisher enclose.square.brackets }
+        { publisher }
+      if$
+    }
+  if$
+  output
+}
+
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {format.authors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium}
+{ duplicate$ empty$
+    'skip$
+    { medium empty$
+        { " " * bbl.medium enclose.square.brackets * }
+        { " " * medium enclose.square.brackets * }
+%%        { bbl.medium enclose.square.brackets * }
+%%        { medium enclose.square.brackets * }
+      if$
+    }
+  if$
+}
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2003s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008.bst
new file mode 100644
index 00000000000..920ac7f7ec6
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008.bst
@@ -0,0 +1,1941 @@
+%%
+%% This is file `ugost2008.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008l.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008l.bst
new file mode 100644
index 00000000000..c07b6cc6034
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008l.bst
@@ -0,0 +1,1929 @@
+%%
+%% This is file `ugost2008l.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,eprint,long')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    { format.authors output
+      new.sentence
+    }
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after} { }
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008l.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008ls.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008ls.bst
new file mode 100644
index 00000000000..e07dc41cc82
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008ls.bst
@@ -0,0 +1,2064 @@
+%%
+%% This is file `ugost2008ls.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,eprint,longlist,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008ls.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008n.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008n.bst
new file mode 100644
index 00000000000..a119366d6ee
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008n.bst
@@ -0,0 +1,2281 @@
+%%
+%% This is file `ugost2008n.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,natbib,eprint')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+%%-------------------------------------------------------------------
+%% This is an author-year citation style bibliography.
+%% It requires a special package file to function properly
+%% such as natbib.sty by Patrick W. Daly.
+%% The form of the \bibitem entries is
+%%   \bibitem[Jones et al.(1990)]{key}...
+%%   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
+%% where the label part (in brackets) consists of the author names,
+%% as they should appear in the citation, with the year in parentheses following.
+%% There must be no space before the opening parenthesis!
+%% A full list of authors may also follow the year.
+%% In natbib.sty, it is possible to define the type of enclosures that is
+%% really wanted (brackets or parentheses), but in either case, there must
+%% be parentheses in the label.
+%% The \cite command functions as follows:
+%%   \citet{key}              => Jones et al. (1990)
+%%   \citet*{key}             => Jones, Baker, and Smith (1990)
+%%   \citep{key}              => (Jones et al., 1990)
+%%   \citep*{key}             => (Jones, Baker, and Smith, 1990)
+%%   \citep[chap. 2]{key}     => (Jones et al., 1990, chap. 2)
+%%   \citep[e.g.][]{key}      => (e.g. Jones et al., 1990)
+%%   \citep[e.g.][p. 32]{key} => (e.g. Jones et al., p. 32)
+%%   \citeauthor{key}         => Jones et al.
+%%   \citeauthor*{key}        => Jones, Baker, and Smith
+%%   \citeyear{key}           => 1990
+%%---------------------------------------------------------------------
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label extra.label sort.label short.list }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.and}      %  { "\bbland{}" }
+{ curlanguage "english" =
+   {"and"}
+   { curlanguage "german" =
+      { "und" }
+      { curlanguage "ukrainian" =
+         {"і"}
+         { curlanguage "russian" =
+            {"и"}
+            {"language is not defined: " language  "and" * * warning$ "and"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    %{ pop$ " et~al." * }
+    { pop$ " " bbl.etal * * }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            %{ " et~al." * }
+            { " " bbl.etal * * }
+            %{ " and " * s #2 "{vv~}{ll}" format.name$ * }
+            { " " bbl.and " " * * * s #2 "{vv~}{ll}" format.name$ * }
+          if$
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.key}
+{ empty$
+    { key field.or.null }
+    { "" }
+  if$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            %'key          %% causes lost of year
+            { "{}" key * } %% Bug in bibtex8 ??
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+  extra.label * % new in v.1.2
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {format.full.names}
+{'s :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+              curlanguage "english" =
+              and
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+          %t "~others" =
+          %or
+                %{ " et~al." * }
+                { " " bbl.etal * * }
+                %{ " and " * t * }
+                { " " bbl.and " " * * * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
+  cite$ write$
+  "}" write$
+  language empty$
+    { "english" 'curlanguage := }
+    {language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+%%  author.key.label
+%%  year parenthesify *
+%%  "; lbl:" label * *
+%%  "; mfn:"  make.full.names * *
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  editor format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  author format.key output
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  author format.key output
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+}
+
+
+INTEGERS { seq.num }
+
+FUNCTION {init.seq}
+{ #0 'seq.num :=}
+
+EXECUTE {init.seq}
+
+FUNCTION {int.to.fix}
+{ "000000000" swap$ int.to.str$ *
+  #-1 #10 substring$
+}
+
+FUNCTION {presort}%#3
+{
+  calc.label               % computes label
+  label sortify            % initiates sort.label
+  "    "
+  *
+  seq.num #1 + 'seq.num := % advance seq.num
+  seq.num  int.to.fix      % prepend seq.num with 0s
+  'sort.label :=           % set sort.label to seq.num
+  sort.label *             % append seq.num to label
+  #1 entry.max$ substring$ % cut if too long
+  'sort.key$ :=            % set sort.key$
+}
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { number.label longest.label.width last.extra.num  }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
+  #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
+    }
+  if$
+  number.label #1 + 'number.label :=
+}
+
+ITERATE {forward.pass}
+
+FUNCTION {reverse.pass}
+{ next.extra "b" =
+    { "a" 'extra.label := }
+    'skip$
+  if$
+  extra.label 'next.extra :=
+  extra.label
+  duplicate$ empty$
+    'skip$
+    { "{\natexlab{" swap$ * "}}" * }
+  if$
+  'extra.label :=
+  label extra.label * 'label :=
+}
+
+REVERSE {reverse.pass}
+
+FUNCTION {bib.sort.order}
+{ sort.label  'sort.key$ :=
+}
+
+ITERATE {bib.sort.order}
+
+SORT
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  "\providecommand{\natexlab}[1]{#1}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008n.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008ns.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008ns.bst
new file mode 100644
index 00000000000..698f2c97c03
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008ns.bst
@@ -0,0 +1,2415 @@
+%%
+%% This is file `ugost2008ns.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,natbib,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+%%-------------------------------------------------------------------
+%% This is an author-year citation style bibliography.
+%% It requires a special package file to function properly
+%% such as natbib.sty by Patrick W. Daly.
+%% The form of the \bibitem entries is
+%%   \bibitem[Jones et al.(1990)]{key}...
+%%   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
+%% where the label part (in brackets) consists of the author names,
+%% as they should appear in the citation, with the year in parentheses following.
+%% There must be no space before the opening parenthesis!
+%% A full list of authors may also follow the year.
+%% In natbib.sty, it is possible to define the type of enclosures that is
+%% really wanted (brackets or parentheses), but in either case, there must
+%% be parentheses in the label.
+%% The \cite command functions as follows:
+%%   \citet{key}              => Jones et al. (1990)
+%%   \citet*{key}             => Jones, Baker, and Smith (1990)
+%%   \citep{key}              => (Jones et al., 1990)
+%%   \citep*{key}             => (Jones, Baker, and Smith, 1990)
+%%   \citep[chap. 2]{key}     => (Jones et al., 1990, chap. 2)
+%%   \citep[e.g.][]{key}      => (e.g. Jones et al., 1990)
+%%   \citep[e.g.][p. 32]{key} => (e.g. Jones et al., p. 32)
+%%   \citeauthor{key}         => Jones et al.
+%%   \citeauthor*{key}        => Jones, Baker, and Smith
+%%   \citeyear{key}           => 1990
+%%---------------------------------------------------------------------
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label extra.label sort.label short.list }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.and}      %  { "\bbland{}" }
+{ curlanguage "english" =
+   {"and"}
+   { curlanguage "german" =
+      { "und" }
+      { curlanguage "ukrainian" =
+         {"і"}
+         { curlanguage "russian" =
+            {"и"}
+            {"language is not defined: " language  "and" * * warning$ "and"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.lab.names}
+{ 's :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    %{ pop$ " et~al." * }
+    { pop$ " " bbl.etal * * }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            %{ " et~al." * }
+            { " " bbl.etal * * }
+            %{ " and " * s #2 "{vv~}{ll}" format.name$ * }
+            { " " bbl.and " " * * * s #2 "{vv~}{ll}" format.name$ * }
+          if$
+        }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {format.key}
+{ empty$
+    { key field.or.null }
+    { "" }
+  if$
+}
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            %'key          %% causes lost of year
+            { "{}" key * } %% Bug in bibtex8 ??
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+  extra.label * % new in v.1.2
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {format.full.names}
+{'s :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+              curlanguage "english" =
+              and
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+          %t "~others" =
+          %or
+                %{ " et~al." * }
+                { " " bbl.etal * * }
+                %{ " and " * t * }
+                { " " bbl.and " " * * * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
+  cite$ write$
+  "}" write$
+  language empty$
+    { "english" 'curlanguage := }
+    {language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+%%  author.key.label
+%%  year parenthesify *
+%%  "; lbl:" label * *
+%%  "; mfn:"  make.full.names * *
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  editor format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  author format.key output
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  author format.key output
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  author format.key output
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  title format.key output
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+%% This version from plainnat.bst
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+FUNCTION {author.editor.sort}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { "to sort, need author, editor, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { editor sort.format.names }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+
+FUNCTION {author.organization.sort}
+{ author empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need author, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+
+FUNCTION {editor.organization.sort}
+{ editor empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need editor, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { editor sort.format.names }
+  if$
+}
+
+FUNCTION {presort}%#2
+{ calc.label
+  label sortify
+  %author.title.sort
+  "    "
+  *
+  % ========= plainnat.bst =========
+  author.title.sort
+  "    "
+  *
+  year field.or.null sortify
+  *
+  "    "
+  *
+  %cite$
+  title field.or.null sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.label :=
+  sort.label *
+  % ================================
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label last.label next.extra }
+
+INTEGERS { number.label longest.label.width last.extra.num  }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
+  #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
+    }
+  if$
+  number.label #1 + 'number.label :=
+}
+
+ITERATE {forward.pass}
+
+FUNCTION {reverse.pass}
+{ next.extra "b" =
+    { "a" 'extra.label := }
+    'skip$
+  if$
+  extra.label 'next.extra :=
+  extra.label
+  duplicate$ empty$
+    'skip$
+    { "{\natexlab{" swap$ * "}}" * }
+  if$
+  'extra.label :=
+  label extra.label * 'label :=
+}
+
+REVERSE {reverse.pass}
+
+FUNCTION {bib.sort.order}
+{ sort.label  'sort.key$ :=
+}
+
+ITERATE {bib.sort.order}
+
+SORT
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  "\providecommand{\natexlab}[1]{#1}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008ns.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/ugost2008s.bst b/Master/texmf-dist/bibtex/bst/gost/ugost2008s.bst
new file mode 100644
index 00000000000..c9eb9da12a7
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/gost/ugost2008s.bst
@@ -0,0 +1,2064 @@
+%%
+%% This is file `ugost2008s.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% gost.dtx  (with options: `bst,utf8,modern,eprint,sort')
+%% 
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%%   http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%% 
+%% This file has the LPPL maintenance status "maintained".
+%% Maintained by Igor A. Kotelnikov.
+%% Current version: 2012.02.02
+%% 
+%% Please, send bug report via e-mail:
+%%   kia999 at mail dot ru <Igor Kotelnikov>
+%% or
+%%   polyama at yahoo dot com <Maksym Polyakov>
+%% 
+
+
+
+%%
+%% This bibstyle attempts to format bibliography according to
+%% GOST 7.0.5-2008 for bibliographic reference.
+
+ENTRY
+  { address
+    annote
+    author
+    booktitle
+    bookauthor
+    chapter
+    edition
+    editor
+    compiler
+    howpublished
+    institution
+    journal
+    key
+    month
+    note
+    number
+    organization
+    pages
+    publisher
+    school
+    series
+    title
+    medium % new in v.2.
+    type
+    volume
+    year
+    language
+    booklanguage
+    numpages
+    url
+    urldate
+    isbn
+    doi
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
+  }
+  {}
+  { label }
+
+INTEGERS { output.state before.all mid.sentence after.sentence after.block
+after.dblslash after.slash after.column after.semicolumn }
+
+FUNCTION {init.state.consts}
+{ #0 'before.all :=
+  #1 'mid.sentence :=
+  #2 'after.sentence :=
+  #3 'after.block :=
+  #4 'after.dblslash :=
+  #5 'after.slash :=
+  #6 'after.column :=
+  #7 'after.semicolumn :=
+}
+
+STRINGS { s t }
+
+STRINGS { curlanguage }
+
+FUNCTION {change.language}
+{ booklanguage empty$
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
+  if$
+}
+
+FUNCTION {output.nonnull}
+{
+  swap$
+  output.state mid.sentence =
+    { ", " * write$ }
+    { output.state after.block =
+        { add.period$ write$
+          " \BibDash " write$
+          newline$
+          "\newblock " write$
+        }
+        { output.state before.all =
+            'write$
+            { output.state after.dblslash =
+                { "~//" * change.language * " " * write$ }
+                { output.state after.slash =
+                    { "~/ " * write$ }
+                    { output.state after.column =
+                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+                            { "~; " * write$ }
+                        { add.period$ " " * write$ }
+                       if$
+                        }
+                      if$
+                    }
+                  if$
+                }
+              if$
+            }
+          if$
+        }
+      if$
+      mid.sentence 'output.state :=
+    }
+  if$
+}
+
+FUNCTION {output}
+{ duplicate$ empty$
+    'pop$
+    'output.nonnull
+  if$
+}
+
+FUNCTION {output.check}
+{ 't :=
+  duplicate$ empty$
+    { pop$ "empty " t * " in " * cite$ * warning$ }
+    'output.nonnull
+  if$
+}
+
+FUNCTION {fin.entry}
+{ add.period$
+  write$
+  newline$
+}
+
+FUNCTION {new.block}
+{ output.state before.all =
+    'skip$
+    { after.block 'output.state := }
+  if$
+}
+
+FUNCTION {new.dblslash}
+{ output.state before.all =
+    'skip$
+    { after.dblslash 'output.state := }
+  if$
+}
+
+FUNCTION {new.slash}
+{ output.state before.all =
+    'skip$
+    { after.slash 'output.state := }
+  if$
+}
+
+FUNCTION {new.column}
+{ output.state before.all =
+    'skip$
+    { after.column 'output.state := }
+  if$
+}
+
+FUNCTION {new.semicolumn}
+{ output.state before.all =
+    'skip$
+    { after.semicolumn 'output.state := }
+  if$
+}
+
+FUNCTION {new.sentence}
+{ output.state after.block =
+    'skip$
+    { output.state before.all =
+        'skip$
+        { after.sentence 'output.state := }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.blank}
+{ " " * before.all 'output.state :=
+}
+
+FUNCTION {not}
+{   { #0 }
+    { #1 }
+  if$
+}
+
+FUNCTION {and}
+{   'skip$
+    { pop$ #0 }
+  if$
+}
+
+FUNCTION {or}
+{   { pop$ #1 }
+    'skip$
+  if$
+}
+
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+
+FUNCTION {non.stop}
+{ duplicate$
+   "}" * add.period$
+   #-1 #1 substring$ "." =
+}
+
+FUNCTION {new.block.checka}
+{ empty$
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.block.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.block
+  if$
+}
+
+FUNCTION {new.sentence.checka}
+{ empty$
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.sentence.checkb}
+{ empty$
+  swap$ empty$
+  and
+    'skip$
+    'new.sentence
+  if$
+}
+
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+FUNCTION {field.or.null}
+{ duplicate$ empty$
+    { pop$ "" }
+    'skip$
+  if$
+}
+
+FUNCTION {emphasize}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "\BibEmph{" swap$ * "}" * }
+  if$
+}
+
+FUNCTION {enclose.square.brackets} { }
+
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+FUNCTION {space.word}
+{ " " swap$ * " " * }
+
+FUNCTION {bbl.edby}    %  { "\bbledby{}" }
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+      {"Під ред."}
+      { curlanguage "russian" =
+         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.cmplr}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+         {"{Укл.}"}
+         { curlanguage "russian" =
+            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.edition} %  { "\bbledition{}" }
+{ curlanguage "english" =
+   {"edition"}
+   { curlanguage "ukrainian" =
+      {"{вид.}"}
+      { curlanguage "russian" =
+         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
+            { curlanguage "italian" =
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
+            if$}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+      {"Випуск"}
+      { curlanguage "russian" =
+         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+      {"Вип."}
+      { curlanguage "russian" =
+         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.of}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+         { "{із}" }
+         { curlanguage "russian" =
+            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.etal}      %  { "\bblof{}" }
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+         {"{та~ін.}"}
+         { curlanguage "russian" =
+            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
+         if$}
+      if$}
+   if$}
+if$}
+
+
+FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
+{ curlanguage "english" =
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.number}  %  { "\bblnumber{}" }
+{ curlanguage "english" =
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{номер}"}
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "anzahl" }???
+         {"language is not defined: " language  "number" * * warning$ "number"}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnr}     %   { "\bblno{}" }
+{ curlanguage "english" =
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.in}    %    { "\bblin{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
+
+FUNCTION {bbl.iin}  %     { "\bblIn{}" }
+{ curlanguage "english" = curlanguage "german" = or
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
+
+FUNCTION {bbl.pages}    % { "\bblpp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.page}   %   { "\bblp."
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppages}%    { "\bblPp." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.ppage}  %   { "\bblP." }
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.urldate}
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+      { "{дата звернення}" }
+      { curlanguage "russian" =
+         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
+
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+      { "{рук.}" }
+      { curlanguage "ukrainian" =
+        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+INTEGERS { nameptr namesleft numnames }
+
+
+FUNCTION {format.names}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.names.rev}
+{
+  's :=
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+      nameptr #1 >
+        { nameptr #4 =
+          numnames #4 > and
+            { "others" 't :=
+              #1 'namesleft := }
+            'skip$
+          if$
+          namesleft #1 >
+            { ", " * t * }
+            { t "others" =
+          t "~others" =
+          or
+                { " " * bbl.etal * }
+                { ", " * t * }
+              if$
+            }
+          if$
+        }
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+
+FUNCTION {format.authors}
+{ author empty$
+    { "" }
+    { author format.names emphasize}
+  if$
+}
+
+
+FUNCTION {format.bookauthors}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names}
+  if$
+}
+
+FUNCTION {format.authors.after}
+{ author empty$
+    { "" }
+    { author format.names.rev}
+  if$
+}
+
+FUNCTION {format.bookauthors.after}
+{ bookauthor empty$
+    { "" }
+    { bookauthor format.names.rev}% always cuts to 4 persons
+  if$
+}
+
+FUNCTION {format.editors.after}
+{ editor empty$
+    { "" }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
+  if$
+}
+
+FUNCTION {format.compiler.after}
+{ compiler empty$
+    { "" }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
+  if$
+}
+
+FUNCTION {format.title}
+{ title empty$
+    { "" }
+    { title }
+  if$
+}
+
+FUNCTION {format.date}
+{ year empty$
+    { month empty$
+        { "" }
+        { "there's a month but no year in " cite$ * warning$
+          month
+        }
+      if$
+    }
+    { month empty$
+        'year
+        { year ". \BibDash " month * * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
+        'skip$
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+
+
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+
+FUNCTION {n.dashify}
+{ 't :=
+  ""
+    { t empty$ not }
+    { t #1 #1 substring$ "-" =
+        { t #1 #2 substring$ "--" = not
+            { "--" *
+              t #2 global.max$ substring$ 't :=
+            }
+            {   { t #1 #1 substring$ "-" = }
+                { "-" *
+                  t #2 global.max$ substring$ 't :=
+                }
+              while$
+            }
+          if$
+        }
+        { t #1 #1 substring$ *
+          t #2 global.max$ substring$ 't :=
+        }
+      if$
+    }
+  while$
+}
+
+FUNCTION {word.in}
+{ bbl.iin
+  " " * }
+
+FUNCTION {format.btitle}
+{ title
+}
+
+FUNCTION {tie.or.space.connect}
+{ duplicate$ text.length$ #3 <
+    { "~" }
+    { " " }
+  if$
+  swap$ * *
+}
+
+FUNCTION {tie.connect}
+ {"~"
+  swap$ * *
+ }
+
+FUNCTION {either.or.check}
+{ empty$
+    'pop$
+    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
+  if$
+}
+
+FUNCTION {format.bvolume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.connect
+      series empty$
+        'skip$
+        { bbl.of space.word * series emphasize * }
+      if$
+      "volume and number" number either.or.check
+    }
+  if$
+}
+
+FUNCTION {format.number.series}
+{ volume empty$
+    { number empty$
+        { series field.or.null }
+        { series empty$
+            { "there's a number but no series in " cite$ * warning$
+              bbl.nnr }
+            {
+              %new.dblslash
+              new.sentence
+              series
+              bbl.nr
+              tie.or.space.connect}
+          if$
+          number tie.or.space.connect
+        }
+      if$
+    }
+    { "" }
+  if$
+}
+
+FUNCTION {is.num}
+{ chr.to.int$
+  duplicate$ "0" chr.to.int$ < not
+  swap$ "9" chr.to.int$ > not and
+}
+
+FUNCTION {extract.num}
+{ duplicate$ 't :=
+  "" 's :=
+  { t empty$ not }
+  { t #1 #1 substring$
+    t #2 global.max$ substring$ 't :=
+    duplicate$ is.num
+      { s swap$ * 's := }
+      { pop$ "" 't := }
+    if$
+  }
+  while$
+  s empty$
+    'skip$
+    { pop$ s }
+  if$
+}
+
+
+FUNCTION {convert.edition}
+{ edition
+}
+
+FUNCTION {format.edition}
+{ edition empty$
+    { "" }
+    { output.state mid.sentence =
+        { convert.edition " " * bbl.edition * }
+        { convert.edition " " * bbl.edition * }
+      if$
+    }
+  if$
+}
+
+INTEGERS { multiresult }
+
+FUNCTION {multi.page.check}
+{ 't :=
+  #0 'multiresult :=
+    { multiresult not
+      t empty$ not
+      and
+    }
+    { t #1 #1 substring$
+      duplicate$ "-" =
+      swap$ duplicate$ "," =
+      swap$ "+" =
+      or or
+        { #1 'multiresult := }
+        { t #2 global.max$ substring$ 't := }
+      if$
+    }
+  while$
+  multiresult
+}
+
+FUNCTION {format.pages}
+{ pages empty$
+    { "" }
+    { pages multi.page.check
+        { bbl.ppages pages n.dashify tie.connect }
+        { bbl.ppage pages tie.connect }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.pages.page}
+{ pages empty$
+    { numpages empty$
+      { "" }
+      { numpages bbl.pages tie.connect }
+    if$}
+    { format.pages}
+  if$
+}
+
+FUNCTION {format.vol.num.pages}
+{ volume field.or.null
+  number empty$
+    'skip$
+    {
+      ", no." number tie.or.space.connect *
+      volume empty$
+        { "there's a number but no volume in " cite$ * warning$ }
+        'skip$
+      if$
+    }
+  if$
+  pages empty$
+    'skip$
+    { duplicate$ empty$
+        { pop$ format.pages }
+        { ": " * pages n.dashify * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {format.volume}
+{ volume empty$
+    { "" }
+    { bbl.vvol volume tie.or.space.connect }
+  if$
+}
+
+FUNCTION {format.number}
+{ number empty$
+    { "" }
+    { bbl.nr number tie.or.space.connect }
+  if$
+}
+
+
+FUNCTION {empty.misc.check}
+{ author empty$ title empty$ howpublished empty$
+  month empty$ year empty$ note empty$
+  and and and and and
+  key empty$ not and
+    { "all relevant fields are empty in " cite$ * warning$ }
+    'skip$
+  if$
+}
+
+FUNCTION {format.thesis.type}
+{ type empty$
+    'skip$
+    { pop$
+      type
+    }
+  if$
+}
+
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+
+FUNCTION {format.techreport.type}
+{ type empty$
+   { bbl.techreport }
+   'type
+  if$
+}
+
+FUNCTION {author.before}
+{
+  author empty$
+    'skip$
+    {author num.names$ #4 <
+      {format.authors output
+       new.sentence}
+      'skip$
+    if$}
+  if$
+}
+
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
+
+FUNCTION {author.after}
+{
+  author empty$
+    'skip$
+    {author num.names$ #3 >
+      {format.authors.after output
+       new.semicolumn }
+      'skip$
+    if$}
+  if$
+}
+
+FUNCTION {bookauthor.after}
+{
+  bookauthor empty$
+    'skip$
+    {format.bookauthors.after output
+       new.semicolumn }
+  if$
+}
+
+FUNCTION {editor.organization.after}
+{
+  compiler empty$
+    {}
+    { format.compiler.after  output
+    new.semicolumn
+    }
+  if$
+  editor empty$
+    {}
+    { format.editors.after  output
+    new.semicolumn
+    }
+  if$
+  organization empty$
+    {}
+    {organization output
+    new.semicolumn
+    }
+  if$
+}
+
+FUNCTION {format.url}
+{ url empty$
+    { "" }
+    {
+      "URL: \BibUrl{" url * "}" *
+      urldate empty$
+        { "" }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
+      if$ *
+    }
+  if$
+}
+
+FUNCTION {format.annote}
+{ annote empty$
+    { "" }
+{ after.sentence 'output.state :=
+  "\BibAnnote{" annote add.period$ * "}" *
+}
+  if$
+}
+
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+
+FUNCTION {add.medium} { }
+
+
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+
+
+FUNCTION {article}
+{
+  output.bibitem
+  author.before
+  format.title add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  journal emphasize add.doi "journal" output.check % new in v.2
+  new.block
+  format.date "year" output.check
+  new.block
+  format.volume output
+  format.number output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {book}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.sentence
+  format.number.series output
+  new.block
+  format.edition output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {booklet}
+{
+  output.bibitem
+  author.before
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  howpublished output
+  address output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inbook}
+{
+  output.bibitem
+  author.before
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  bookauthor.after
+  editor.organization.after
+  new.block
+  format.edition output
+  new.block
+  format.number.series output
+  new.sentence
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  new.block
+  format.pages.page output
+  new.block
+  format.isbn output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {incollection}
+{
+  output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {proceedings}
+{
+  output.bibitem
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {inproceedings}
+{ output.bibitem
+  author.before
+  new.sentence
+  format.title add.doi add.medium "title" output.check
+  new.slash
+  author.after
+  new.dblslash
+  booktitle "booktitle" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {manual}
+{ output.bibitem
+  author empty$
+    { organization empty$
+        'skip$
+        { organization output.nonnull
+          address output
+        }
+      if$
+    }
+    { format.authors output.nonnull }
+  if$
+  new.block
+  format.btitle add.doi add.medium "title" output.check
+  author empty$
+    { organization empty$
+    {
+          address new.block.checka
+          address output
+        }
+        'skip$
+      if$
+    }
+    {
+      organization address new.block.checkb
+      organization output
+      address output
+    }
+  if$
+  format.edition output
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {misc}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
+  new.block
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
+  new.block
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {online}
+{ output.bibitem
+  format.authors output
+  title howpublished new.sentence.checkb
+  format.title add.doi add.medium "title" output.check
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
+  new.block
+  output.address.publisher
+  format.date output
+  new.block
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%%  format.techrep.type.number output.nonnull
+%%  format.url output
+FUNCTION {report}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {masterthesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {dscithesis}
+{ output.bibitem
+  format.authors "author" output.check
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {conference} { inproceedings }
+
+%%  format.url output
+
+FUNCTION {techreport}
+{
+  output.bibitem
+  format.title add.doi add.medium "title" output.check
+  new.column
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
+
+FUNCTION {default.type} { misc }
+
+MACRO {jan} {"\bbljan{}"}
+MACRO {feb} {"\bblfeb{}"}
+MACRO {mar} {"\bblmar{}"}
+MACRO {apr} {"\bblapr{}"}
+MACRO {may} {"\bblmay{}"}
+MACRO {jun} {"\bbljun{}"}
+MACRO {jul} {"\bbljul{}"}
+MACRO {aug} {"\bblaug{}"}
+MACRO {sep} {"\bblsep{}"}
+MACRO {oct} {"\bbloct{}"}
+MACRO {nov} {"\bblnov{}"}
+MACRO {dec} {"\bbldec{}"}
+
+
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
+
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
+
+READ
+
+
+FUNCTION {sortify}
+{ purify$
+}
+
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
+FUNCTION {sort.format.names}
+{ 's :=
+  #1 'nameptr :=
+  ""
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { nameptr #1 >
+        { "   " * }
+        'skip$
+      if$
+      s nameptr
+      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
+      format.name$ 't :=
+      nameptr numnames = t "others" = and
+        { "et al" * }
+        %{ bbl.etal * }
+        { t sortify * }
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%%</natbib>
+%% =====================================
+
+FUNCTION {sort.format.title}
+{ 't :=
+  "A " #2
+    "An " #3
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
+  sortify
+  #1 global.max$ substring$
+}
+
+%% =====================================
+%% This version from old gost package.
+%%
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+    }
+  if$
+}
+%% This version from plainnat.bst
+%% =====================================
+
+FUNCTION {author.title.sort}
+{ author empty$
+    { title empty$
+        { key empty$
+            { "to sort, need author, title, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { title sort.format.title }
+      if$
+    }
+    {
+      author num.names$ #4 <
+        {author sort.format.names }
+        {title sort.format.title}
+      if$
+     }
+  if$
+}
+
+FUNCTION {presort}%#1
+{
+  author.title.sort
+  "   "
+  *
+  year field.or.null sortify
+  *
+  "   "
+  *
+  title field.or.null
+  sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+
+
+ITERATE {presort}
+
+SORT
+
+
+STRINGS { longest.label }
+
+INTEGERS { number.label longest.label.width }
+
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #1 'number.label :=
+  #0 'longest.label.width :=
+}
+
+EXECUTE {initialize.longest.label}
+
+FUNCTION {forward.pass}
+{ number.label int.to.str$ 'label :=
+  number.label #1 + 'number.label :=
+  label width$ longest.label.width >
+    { label 'longest.label :=
+      label width$ 'longest.label.width :=
+    }
+    'skip$
+  if$
+}
+
+ITERATE {forward.pass}
+
+
+FUNCTION {begin.bib}
+{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
+  "\def\selectlanguageifdefined#1{"                  write$ newline$
+  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
+  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
+  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
+  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
+  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+  preamble$ empty$
+    'skip$
+    { preamble$ write$ newline$ }
+  if$
+}
+
+EXECUTE {begin.bib}
+
+EXECUTE {init.state.consts}
+
+ITERATE {call.type$}
+
+FUNCTION {end.bib}
+{ newline$
+  "\end{thebibliography}" write$ newline$
+}
+
+EXECUTE {end.bib}
+
+%%
+%% End of file `ugost2008s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/unicode-gost705s.bst b/Master/texmf-dist/bibtex/bst/gost/unicode-gost705s.bst
deleted file mode 100644
index 5d144e07d53..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/unicode-gost705s.bst
+++ /dev/null
@@ -1,1672 +0,0 @@
-%%
-%% This is file `unicode-gost705s.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% unicode-gost.dtx  (with options: `unicode-gost705s')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% GOST 7.0.5-2008
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%% Requires 8-bit bibtex with switch -B.
-%% bibtex8.exe -B <your_document>
-%% or
-%% bibtex.exe <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " \BibDash " write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-               }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{Під ред. }"}
-        { curlanguage "russian" =
-           {"{Под ред. }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{ curlanguage "english" =
-     {"Compiler "}
-     { curlanguage "ukrainian" =
-        {"{Укл. }"}
-        { curlanguage "russian" =
-           {"{Сост. }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{вид.}"}
-        { curlanguage "russian" =
-          {"{изд.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Том"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Т."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-     {"Issue"}
-     { curlanguage "ukrainian" =
-        {"Випуск"}
-        { curlanguage "russian" =
-           {"Выпуск"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"Вип."}
-        { curlanguage "russian" =
-            {"Вып."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{із}"}
-        { curlanguage "russian" =
-           {"{из}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{та~ін.}"}
-        { curlanguage "russian" =
-           {"{и~др.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Номер"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-     {"number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{номер}"}
-        { curlanguage "german" =
-           {"{anzahl}"}
-           {"language is not defined: " language  "number" * * warning$ "number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{№}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-     {"No."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{№}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-     {"in"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"{в}"}
-         {"language is not defined: " language  "in" * * warning$ "in"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-     {"In"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"В"}
-         {"language is not defined: " language  "In" * * warning$ "In"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-     {"pp."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{с.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{с.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"дата звернення: "}
-        { curlanguage "russian" =
-           {"дата обращения: "}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{ff}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " "--- " month * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition " " * bbl.edition * }
-        { convert.edition " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "" }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "URL: \BibUrl{" url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.btitle output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-FUNCTION {sortify}
-{ purify$
-%%%% Why it is commented ? %%%  "l" change.case$
-}
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {sort.format.names}
-{ 's :=
-  #1 'nameptr :=
-  ""
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { nameptr #1 >
-        { "   " * }
-        'skip$
-      if$
-      s nameptr
-      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
-      format.name$ 't :=
-      nameptr numnames = t "others" = and
-        { "et al" * }
-        { t sortify * }
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {sort.format.title}
-{ 't :=
-  "A " #2
-    "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
-  sortify
-  #1 global.max$ substring$
-}
-
-FUNCTION {author.sort}
-{ author empty$
-    { key empty$
-        { "to sort, need author or key in " cite$ * warning$
-          ""
-        }
-        { key sortify }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.title.sort}
-{ author empty$
-    { title empty$
-        { key empty$
-            { "to sort, need author, title, or key in " cite$ * warning$
-              ""
-            }
-            { key sortify }
-          if$
-        }
-        { title sort.format.title }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-     }
-  if$
-}
-
-FUNCTION {presort}
-{
-  author.title.sort
-  "   "
-  *
-  year field.or.null sortify
-  *
-  "   "
-  *
-  title field.or.null
-  sort.format.title
-  *
-  #1 entry.max$ substring$
-  'sort.key$ :=
-}
-
-ITERATE {presort}
-
-SORT
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `unicode-gost705s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/unicode-gost705u.bst b/Master/texmf-dist/bibtex/bst/gost/unicode-gost705u.bst
deleted file mode 100644
index 52f7639333c..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/unicode-gost705u.bst
+++ /dev/null
@@ -1,1560 +0,0 @@
-%%
-%% This is file `unicode-gost705u.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% unicode-gost.dtx  (with options: `unicode-gost705u')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% GOST 7.0.5-2008
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%% Requires 8-bit bibtex with switch -B.
-%% bibtex8.exe -B <your_document>
-%% or
-%% bibtex.exe <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " \BibDash " write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-               }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{Під ред. }"}
-        { curlanguage "russian" =
-           {"{Под ред. }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{ curlanguage "english" =
-     {"Compiler "}
-     { curlanguage "ukrainian" =
-        {"{Укл. }"}
-        { curlanguage "russian" =
-           {"{Сост. }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{вид.}"}
-        { curlanguage "russian" =
-          {"{изд.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Том"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Т."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-     {"Issue"}
-     { curlanguage "ukrainian" =
-        {"Випуск"}
-        { curlanguage "russian" =
-           {"Выпуск"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"Вип."}
-        { curlanguage "russian" =
-            {"Вып."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{із}"}
-        { curlanguage "russian" =
-           {"{из}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{та~ін.}"}
-        { curlanguage "russian" =
-           {"{и~др.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Номер"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-     {"number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{номер}"}
-        { curlanguage "german" =
-           {"{anzahl}"}
-           {"language is not defined: " language  "number" * * warning$ "number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{№}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-     {"No."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{№}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-     {"in"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"{в}"}
-         {"language is not defined: " language  "in" * * warning$ "in"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-     {"In"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"В"}
-         {"language is not defined: " language  "In" * * warning$ "In"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-     {"pp."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{с.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{с.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"дата звернення: "}
-        { curlanguage "russian" =
-           {"дата обращения: "}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{ff}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " "--- " month * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition " " * bbl.edition * }
-        { convert.edition " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "" }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "URL: \BibUrl{" url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.btitle output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `unicode-gost705u.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/unicode-gost780s.bst b/Master/texmf-dist/bibtex/bst/gost/unicode-gost780s.bst
deleted file mode 100644
index a11ed701b8f..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/unicode-gost780s.bst
+++ /dev/null
@@ -1,1633 +0,0 @@
-%%
-%% This is file `unicode-gost780s.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% unicode-gost.dtx  (with options: `unicode-gost780s')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% (obsolete)
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%% Requires 8-bit bibtex with switch -B.
-%% bibtex8.exe -B <your_document>
-%% or
-%% bibtex.exe <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " " quote$ "--- " * *  write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-               }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{Під ред. }"}
-        { curlanguage "russian" =
-           {"{Под ред. }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{ curlanguage "english" =
-     {"Compiler "}
-     { curlanguage "ukrainian" =
-        {"{Укл. }"}
-        { curlanguage "russian" =
-           {"{Сост. }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{вид.}"}
-        { curlanguage "russian" =
-          {"{изд.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Том"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Т."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-     {"Issue"}
-     { curlanguage "ukrainian" =
-        {"Випуск"}
-        { curlanguage "russian" =
-           {"Выпуск"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"Вип."}
-        { curlanguage "russian" =
-            {"Вып."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{із}"}
-        { curlanguage "russian" =
-           {"{из}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{та~ін.}"}
-        { curlanguage "russian" =
-           {"{и~др.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Номер"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-     {"number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{номер}"}
-        { curlanguage "german" =
-           {"{anzahl}"}
-           {"language is not defined: " language  "number" * * warning$ "number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{№}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-     {"No."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{№}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-     {"in"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"{в}"}
-         {"language is not defined: " language  "in" * * warning$ "in"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-     {"In"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"В"}
-         {"language is not defined: " language  "In" * * warning$ "In"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-     {"pp."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{с.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{с.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"дата звернення: "}
-        { curlanguage "russian" =
-           {"дата обращения: "}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{
-  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{ff}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " "--- " month * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition " " * bbl.edition * }
-        { convert.edition " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "" }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {format.authors.after output
-       new.semicolumn }
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {format.bookauthors.after output
-       new.semicolumn }
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "\BibUrl{ " url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.btitle output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-FUNCTION {sortify}
-{ purify$
-%%%% Why it is commented ? %%%  "l" change.case$
-}
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {sort.format.names}
-{ 's :=
-  #1 'nameptr :=
-  ""
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { nameptr #1 >
-        { "   " * }
-        'skip$
-      if$
-      s nameptr
-      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
-      format.name$ 't :=
-      nameptr numnames = t "others" = and
-        { "et al" * }
-        { t sortify * }
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {sort.format.title}
-{ 't :=
-  "A " #2
-    "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
-  sortify
-  #1 global.max$ substring$
-}
-
-FUNCTION {author.sort}
-{ author empty$
-    { key empty$
-        { "to sort, need author or key in " cite$ * warning$
-          ""
-        }
-        { key sortify }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.title.sort}
-{ author empty$
-    { title empty$
-        { key empty$
-            { "to sort, need author, title, or key in " cite$ * warning$
-              ""
-            }
-            { key sortify }
-          if$
-        }
-        { title sort.format.title }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-     }
-  if$
-}
-
-FUNCTION {presort}
-{
-  author.title.sort
-  "   "
-  *
-  year field.or.null sortify
-  *
-  "   "
-  *
-  title field.or.null
-  sort.format.title
-  *
-  #1 entry.max$ substring$
-  'sort.key$ :=
-}
-
-ITERATE {presort}
-
-SORT
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `unicode-gost780s.bst'.
diff --git a/Master/texmf-dist/bibtex/bst/gost/unicode-gost780u.bst b/Master/texmf-dist/bibtex/bst/gost/unicode-gost780u.bst
deleted file mode 100644
index 3c8d28da7ca..00000000000
--- a/Master/texmf-dist/bibtex/bst/gost/unicode-gost780u.bst
+++ /dev/null
@@ -1,1521 +0,0 @@
-%%
-%% This is file `unicode-gost780u.bst',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% unicode-gost.dtx  (with options: `unicode-gost780u')
-%% 
-%% Copyright 2012 Igor A. Kotelnikov.
-%% Version 2012.01.21
-%% 
-%% Copyright 1996-2005 Maksym Polyakov.
-%% Version 2005.08.12
-%% 
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either version 1.3
-%% of this license or (at your option) any later version.
-%% The latest version of this license is in
-%%   http://www.latex-project.org/lppl.txt
-%% and version 1.3 or later is part of all distributions of LaTeX
-%% version 2005/12/01 or later.
-%% 
-%% Please, send bug reports via e-mail:
-%%   kia999 at mail dot ru <Igor Kotelnikov>
-%%   polyama at yahoo dot edu  <Maksym Polyakov>
-%% 
-%% 2012.01.15 Added German, French, Italian languages, @online entry.
-%% 
-%% 2005.08.12 Bug fix (long annote)
-%% 
-%% 2003.06.06 contributions by Konstantin Vorontsov:
-%% New ENTRY "annote" added to output annotations.
-%% New commands BibUrl, BibAnnote added for customize urls and annotations.
-%% 
-%% 2003.08.10
-%% New command BibEmph added to customize emphasizing.
-%% 
-%% 2003.10.07
-%% Some bug fixes in names and date formatting.
-%% 
-%% 2003.10.07
-%% Bug fix in INPROCEEDINGS.
-%% 
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%% (obsolete)
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%% Requires 8-bit bibtex with switch -B.
-%% bibtex8.exe -B <your_document>
-%% or
-%% bibtex.exe <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-          " " quote$ "--- " * *  write$
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-                       { add.period$ " " * write$ }
-                     if$
-               }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{Під ред. }"}
-        { curlanguage "russian" =
-           {"{Под ред. }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{ curlanguage "english" =
-     {"Compiler "}
-     { curlanguage "ukrainian" =
-        {"{Укл. }"}
-        { curlanguage "russian" =
-           {"{Сост. }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{вид.}"}
-        { curlanguage "russian" =
-          {"{изд.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Том"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Т."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-     {"Issue"}
-     { curlanguage "ukrainian" =
-        {"Випуск"}
-        { curlanguage "russian" =
-           {"Выпуск"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"Вип."}
-        { curlanguage "russian" =
-            {"Вып."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{із}"}
-        { curlanguage "russian" =
-           {"{из}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{та~ін.}"}
-        { curlanguage "russian" =
-           {"{и~др.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Номер"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-     {"number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{номер}"}
-        { curlanguage "german" =
-           {"{anzahl}"}
-           {"language is not defined: " language  "number" * * warning$ "number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{№}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-     {"No."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{№}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-     {"in"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"{в}"}
-         {"language is not defined: " language  "in" * * warning$ "in"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-     {"In"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"В"}
-         {"language is not defined: " language  "In" * * warning$ "In"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-     {"pp."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{с.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{с.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"дата звернення: "}
-        { curlanguage "russian" =
-           {"дата обращения: "}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-INTEGERS { nameptr namesleft numnames }
-
-
-FUNCTION {format.names}
-{
-  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
-}
-
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{ff}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-      t "~others" =
-      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " "--- " month * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-
-FUNCTION {convert.edition}
-{ edition
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition " " * bbl.edition * }
-        { convert.edition " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "" }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {format.authors.after output
-       new.semicolumn }
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {format.bookauthors.after output
-       new.semicolumn }
-  if$
-}
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-      "\BibUrl{ " url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-{ after.sentence 'output.state :=
-  "\BibAnnote{" annote add.period$ * "}" *
-}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.btitle output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%%
-%% End of file `unicode-gost780u.bst'.
diff --git a/Master/texmf-dist/doc/bibtex/gost/README b/Master/texmf-dist/doc/bibtex/gost/README
index 92a660aab43..a1155013f4f 100644
--- a/Master/texmf-dist/doc/bibtex/gost/README
+++ b/Master/texmf-dist/doc/bibtex/gost/README
@@ -1,6 +1,6 @@
 GOST is a bundle of BibTeX styles designed to meet State Standards (GOST)
-on information, librarianship and publishing issued by Russian Federation
-and interstate committee of former USSR States.
+on information, librarianship and publishing issued by The Russian Federation
+and Interstate Committee of former USSR States.
 
 It may be distributed and/or modified under the conditions of the LaTeX
 Project Public License, either version 1.3 of this license or (at your
@@ -19,43 +19,123 @@ GOST 7.80 -2000  Bibliographic record.
                  Heading. General requirements and rules.
 GOST 7.11 -2004  Bibliographic description and references.
                  Rules for the abbreviation of words and word combinations
-                 in foreign European languages
-ect.
+                 in foreign European languages.
+GOST 7.83 -2001  Electronic editions. Basic types and imprint.
+Ect.
+
+GOST comprises 16 BibTeX styles to format bibliography in English, Russian 
+and Ukrainian according to GOST 7.0.5-2008 and GOST 7.1-2003. Both 8-bit 
+and Unicode (UTF-8) versions of each BibTeX style, in each case offering 
+a choice of sorted and unsorted. Further, 2 more styles, |gost780| and 
+|gost780s| styles (not conforming to effective standards) are retained 
+for backwards compatibility.
+
+All BibTeX styles are derived from same master file |gost.dtx| by applying 
+different set of options as shown in the table below.
+
+------------------------------------------------------------------------
+ Style         | utf8 | strict | modern | eprint | long | sort | natbib
+------------------------------------------------------------------------
+ gost780       |      |        |        |        |      |      |
+ gost780s      |      |        |        |        |      |   +  |
+------------------------------------------------------------------------
+ gost2003      |      |   +    |        |    +   |      |      |
+ gost2003s     |      |   +    |        |    +   |      |   +  |
+ gost2008      |      |        |   +    |    +   |      |      |
+ gost2008n     |      |        |   +    |    +   |      |      |   +
+ gost2008l     |      |        |   +    |    +   |   +  |      |
+ gost2008s     |      |        |   +    |    +   |      |   +  |
+ gost2008ns    |      |        |   +    |    +   |      |   +  |   +
+ gost2008ls    |      |        |   +    |    +   |   +  |   +  |
+------------------------------------------------------------------------
+ ugost2003     |  +   |   +    |        |    +   |      |      |
+ ugost2003s    |  +   |   +    |        |    +   |      |   +  |
+ ugost2008     |  +   |        |   +    |    +   |      |      |
+ ugost2008n    |  +   |        |   +    |    +   |      |      |   +
+ ugost2008l    |  +   |        |   +    |    +   |   +  |      |
+ ugost2008s    |  +   |        |   +    |    +   |      |   +  |
+ ugost2008ns   |  +   |        |   +    |    +   |      |   +  |   +
+ ugost2008ls   |  +   |        |   +    |    +   |   +  |   +  |
+------------------------------------------------------------------------
+ Style         | utf8 | strict | modern | eprint | long | sort | natbib
+------------------------------------------------------------------------
+
+|Gost2008| style is recommended for most applications. It corresponds to the
+currently effective Standard 7.0.5-2008. Librarians should use the style
+|gost2003| instead of |gost2008| to compile a library catalog to meet the
+Standard 7.1-2003. Use of other styles is best explained through
+the meaning of options used to compile those styles from the master source.
+
+Two styles, |gost780| and |gost780s|, generated without |modern| and 
+|strict| options, are retained for backward compatibility. They do not 
+conform the Standards 7.0.5-2008 and 7.1-2003 cited above.
+
+The |strict| option provides conformance to the Standard 7.1-2003. The
+styles compiled with that option bear the name |gost2003| with possible
+suffixes |s|, |l|, |n| as explained below. These styles are intended 
+primarily for the librarians who compose a library catalog.
+
+The |modern| option meets the Standard 7.0.5-2008 which can be thought
+off as a relaxed version of the Standards 7.1-2003. The styles compiled with
+that option bear the name |gost2008| with possible suffixes |s|, |l|, |n|.
+The |strict| option  has precedence over |modern| so that a style compiled
+with both options will resemble mainly the |gost2003| style rather than 
+|gost2008|.
+
+If the number of authors exceeds 4, modern styles cut the list of authors
+to at most 4 persons as prescibed by the Standards. The option
+|long| overrides this rule to provide backward compatibility with the
+package disser by Stanislab Kruchinin. Two styles, |gost2008l| and
+|gost2008ls|, compiled with the option |long| mimic behavior of the styles
+|gost705| and |gost705s| from the disser package. Major
+effect of the |long| option is that the list of authors always
+precedes book or article title no matter how long is it.
+Modern styles compiled without |long| place long list of authors behind
+the title. The names of styles compiled with the option |long| has the
+suffix |l|. Recall that those styles do not conform effective Standards and
+their use is discouraged. 
+
+The |eprint| option enables formatting electronic publications. In particular,
+it enables |eprint|, |eprinttype|, |eprintclass|, and |doi| fields for a
+bibliographic entry. The styles, generated without the |eprint| option,
+just ignore the these fields. Starting from the
+version 1.2 of the GOST package, all modern styles are compiled with this
+option included, and therefore the suffix |e| which designated
+this option in earlier  versions is not appended to the name of style
+any more.
+
+The |natbib| option provides compatibility with the |natbib| package. The names 
+of styles compiled with the option |natbib| bear the suffix |n|. Currently
+4 styles with that option are available for public use.
+
+The |sort| option enables sorting bibliographic references by author names
+and titles of references. The names of styles compiled with the option |sort|
+bear the suffix |s|. Sorting does not work as expected for databases in
+unicode encoding (see below). 
+
+Finally, the |utf8| option produces bibliographic styles in unicode rather
+that in 8-bit encoding. Names of those styles bear the prefix |u|.
+
+
+Beyond bibliographic style, GOST bundle contains CS files (codepage and
+sorting order).
 
-The GOST bundle contains 8 BibTeX styles. These include 2 BibTeX styles
-for documents in 8bit encoding and 2 equivalent styles in UTF8 encoding.
-
-Encoding        |   Unsorted               Sorted
 ----------------------------------------------------------------
-8bit            |   gost705.bst            gost705s.bst
-utf8            |   unicode-gost705.bst    unicode-gost705s.bst
-
-4 styles are retained for backward compatibility. They do not conform
-standards listed above.
-
-Encoding        |   Unsorted               Sorted
+ Encoding        |   CSF                 Sorting order
 ----------------------------------------------------------------
-8bit            |   gost780u.bst           gost780s.bst
-utf8            |   unicode-gost780u.bst   unicode-gost780s.bst
-
-To produce 8bit styles, you need to download the files `gost.ins' and
-`gost.dtx'. Run LaTeX on gost.ins.  Similarly, to produce unicoded
-style, run LaTeX on unicode-gost.ins.
-
-Beyond that, GOST bundle contains CS files (codepage and sorting order).
-
-Encoding        |   CSF                 Sorting order
+ cp866           |   ruscii.csf          Cyrillic first, Latin
+ cp1251          |   cp1251.csf          Cyrillic first, Latin
+ koi8-u          |   koi8u.csf           Cyrillic first, Latin
+ utf8            |   utf8cyrillic.csf    Cyrillic first, Latin
 ----------------------------------------------------------------
-cp866           |   ruscii.csf          Cyrillic first, Latin
-cp1251          |   cp1251.csf          Cyrillic first, Latin
-koi8-u          |   koi8u.csf           Cyrillic first, Latin
-utf8            |   utf8cyrillic.csf    Cyrillic first, Latin
 
 In addition, BibTeX8 distribution comes with few more CSFs.
 
-Encoding        |   CSF                 Sorting order
 ----------------------------------------------------------------
-cp866           |   cp866rus.csf        Latin first, Cyrillic
+ Encoding        |   CSF                 Sorting order
+----------------------------------------------------------------
+ cp866           |   cp866rus.csf        Latin first, Cyrillic
+----------------------------------------------------------------
 
 
 How to use
@@ -63,8 +143,8 @@ How to use
 1. Select bibliography style by adding appropriate \bibliographystyle
    declaration to your source file <filename>.tex, e.g.
 
-	\bibliographystyle{gost705}
-	\bibliography{dabase}
+	\bibliographystyle{gost2008}
+	\bibliography{database}
 
 2. Add the field language="ukrainian" or language="russian" to the
    bibliographic entries in Ukrainian or Russian languages in your
@@ -82,13 +162,30 @@ How to use
 	latex <filename>.tex
 
 4. For details on preparing bibliographic database see
-   examples in gost*.pdf.
+   examples in |gost*.pdf|.
 
-5. Unicode-gost*.bst styles are primarily intended for use
+5. Ugost*.bst styles are primarily intended for use
    with unicode compilers (xelatex and lualatex). They
    should be preferred as well when using 8bit compilers
    (latex and pdflatex) if source file is in utf8 encoding.
 
+6. Neither bitex.exe nor bitex8.exe provides
+   correct sorting order of unicode text. It means that using
+   ugost2008s or any other style ended with `s' in
+   its name may produce unexpected result for utf8 documents.
+
+7. Bibtex8 fails to change case of a string if it contains Cyrillic
+   letter in unicode. Therefore ugost2008* styles do not change case of
+   titles and other parts of bibliographic record while 8-bit styles
+   do the case change where appropriate.
+
+8. Either |bibtex8| or |Bibtex8| fail to cut Cyrillic names to
+   initials. Therefore |ugost2008*| styles do not modify the name of
+   authors.
+
+9. Package |natbib| should be loaded when using styles with
+   suffix |n| in their names. 
+
 
 Customization
 
@@ -100,7 +197,7 @@ definitions are listed below.
 	\providecommand*{\url}[1]{{\small #1}}
 	\providecommand*{\BibUrl}[1]{\url{#1}}
 	\providecommand{\BibAnnote}[1]{}
-	\providecommand*{\BibEmph}[1]{\emph{#1}}
+	\providecommand*{\BibEmph}[1]{#1}
 
 By default, gost styles separate logical parts of a bibliography
 record by a period and cyrdash (. "---). It is legitimate to drop
@@ -110,7 +207,7 @@ that dash by overriding the command \BibDash as follows
 
 By default, \BibDash is equivalent to the shorthand "---
 introduced by the babel package with the option russian.
-It prints a so called cyrillic dash (\cyrdash), which is
+It prints a so called Cyrillic dash (\cyrdash), which is
 20% shorter then ordinary LaTeX dash (---), and puts
 unbreakable space before \cyrdash so that dash never appears
 in the beginning of a line.
@@ -122,23 +219,39 @@ Where to get
 2. http://ctan.org/pkg/gost
 
 
-What's new in version 2012.02.02
+What's new in version 1.2 (2012.02.22)
 
-1. Support for GOST 7.0.5-2008 is provided.
-2. @Online entry is added to format a reference to electronic
+1. Code refactoring. All styles are now generated from single source file.
+2. Support for GOST-7.1-2003. The field |medium| is added to reflect type
+   of material. For most entry types |medium| defaults to |text|.
+3. Support for |natbib| package.
+4. Support for |natbib| package.
+5. All modern styles are now compiled with the |eprint| option.
+
+
+What's new in version 1.1 (2012.01.21)}
+
+1. Support for GOST 7.0.5-2008 and GOST 7.1-2003 is provided.
+2. |@Online| entry is added to format a reference to electronic
    resource on Internet.
-3. Urldate field is added to format the date of last access to
-   Internet resource.
+3. |@MastersThesis| entry is added to format a reference to master's thesis.
+   |@DSciThesis| entry is added to format a reference to doctor of
+   sciences thesis.
+4. |Urldate|, |eprint|, |eprintclass|, |eprinttype| fields are added.
 
 
 Version history
 
-2. 2012.02.02
-1. 2005.08.12
+2012.02.22 Support for |natbib| package.
+2012.02.02 Adaptation to GOST 7.0.5, electronic publishing.
+2005.08.12 First version uploaded to CTAN.
+2003.06.06 First public version.
+
 
 
 Please, send feature requests and bug reports via e-mail:
   kia999  at mail  dot ru   <Igor A. Kotelnikov>
-  polyama at yahoo dot edu  <Maksym Polyakov>
+or
+  polyama at yahoo dot com  <Maksym Polyakov>
 
 Happy BibTeXing!
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost.pdf b/Master/texmf-dist/doc/bibtex/gost/gost.pdf
new file mode 100644
index 00000000000..79c8a16fc58
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2003.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2003.pdf
new file mode 100644
index 00000000000..67de87cf001
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2003.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008-customized.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008-customized.pdf
new file mode 100644
index 00000000000..c961b456d23
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008-customized.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib-s.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib-s.pdf
new file mode 100644
index 00000000000..7993c57fec2
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib-s.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib.pdf
new file mode 100644
index 00000000000..b11a697f9fe
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008-natbib.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008-sorted.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008-sorted.pdf
new file mode 100644
index 00000000000..13c92e6f1a2
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008-sorted.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008.pdf
new file mode 100644
index 00000000000..8d7a8795bb2
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost2008l.pdf b/Master/texmf-dist/doc/bibtex/gost/gost2008l.pdf
new file mode 100644
index 00000000000..ccb6616b726
--- /dev/null
+++ b/Master/texmf-dist/doc/bibtex/gost/gost2008l.pdf
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost705-custom.pdf b/Master/texmf-dist/doc/bibtex/gost/gost705-custom.pdf
deleted file mode 100644
index 4177339d656..00000000000
--- a/Master/texmf-dist/doc/bibtex/gost/gost705-custom.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost705-sorted.pdf b/Master/texmf-dist/doc/bibtex/gost/gost705-sorted.pdf
deleted file mode 100644
index 49806f87d3d..00000000000
--- a/Master/texmf-dist/doc/bibtex/gost/gost705-sorted.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost705-unsorted.pdf b/Master/texmf-dist/doc/bibtex/gost/gost705-unsorted.pdf
deleted file mode 100644
index cc7c9974e4d..00000000000
--- a/Master/texmf-dist/doc/bibtex/gost/gost705-unsorted.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost705.pdf b/Master/texmf-dist/doc/bibtex/gost/gost705.pdf
deleted file mode 100644
index ee05fd31e59..00000000000
--- a/Master/texmf-dist/doc/bibtex/gost/gost705.pdf
+++ /dev/null
diff --git a/Master/texmf-dist/doc/bibtex/gost/gost780.pdf b/Master/texmf-dist/doc/bibtex/gost/gost780.pdf
index 4733fc077f8..bc26ed490f0 100644
--- a/Master/texmf-dist/doc/bibtex/gost/gost780.pdf
+++ b/Master/texmf-dist/doc/bibtex/gost/gost780.pdf
diff --git a/Master/texmf-dist/source/bibtex/gost/gost.dtx b/Master/texmf-dist/source/bibtex/gost/gost.dtx
index 091e4c049ee..989390856a1 100644
--- a/Master/texmf-dist/source/bibtex/gost/gost.dtx
+++ b/Master/texmf-dist/source/bibtex/gost/gost.dtx
@@ -1,31 +1,538 @@
-% !Mode:: "DTX:UNIX"
-% \endinput
+% \iffalse
+% !Mode:: "DTX:UNIX:UTF-8"
+%
+% This is the source file for the GOST package
+% to be used with BibTeX8.
+% It contains set of bibliographic style that
+% attempt to format the bibliography according to
+% GOST R 7.0.5-2008 with some conventional modifications.
+%
+% Copyright 2012 Igor A. Kotelnikov.
+% Version 1.2
+%
+% Copyright 1996-2005 Maksym Polyakov.
+% Version 2005.08.12
+%
+% For a bibliographic entry in Russian you need
+% to add the field
+%     language = {russian}.
+% Ukrainian, German, French, Italian languages are
+% also supported. Default language is English.
+%
+% Book entry should have the numpages field
+% showing total number of pages. Optional field
+% url will format URL (using hyperref, if loaded).
+%
+% See examples in gost*.pdf.
+%
+% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
+% bibtex8 -B -c <encoding>.csf <your_document>
+%
+%
+% Download from
+%  CTAN:macros/latex/contrib/gost/gost.dtx
+%
+% To unpack run
+%   latex gost.ins
+%
+% To produce documentation run
+%    pdflatex gost.dtx
+%    makeindex -r -s gind.ist gost
+%    makeindex -r -s gglo.ist -o gost.gls gost.glo
+%    pdflatex gost.dtx
+%
+% TeX Directory Structure
+%
+% Move all *.bst files       to TDS:bibtex/bst/gost
+% Move all *.csf files       to TDS:bibtex/csf/gost
+% Move all *.pdf files       to TDS:doc/bibtex/gost
+% Move gost.dtx and gost.ins to TDS:source/bibtex/gost/
+%
+% $Id: gost.dtx, v.2012/01/31 kia999 $
+%
+%<*driver>
+\ProvidesFile{gost.dtx}%
+  [2012/02/13 v.1.2 Bibliography styles for GOST R 7.0.5-2008.]
+
+\documentclass{ltxdoc}
+
+\usepackage{geometry}
+\usepackage{makeidx}
+\ifpdf
+  \usepackage[pdftex,hyperindex,unicode]{hyperref}
+  \usepackage{cmap}
+\else
+  \usepackage[hypertex]{hyperref}
+\fi
+\usepackage{color}
+\definecolor{darkblue}{rgb}{0,0,.6}
+\hypersetup{
+  pdftitle           = {The GOST package},
+  pdfauthor          = {Igor A. Kotelnikov},
+  pdfsubject         = {BibTeX, GOST},
+  pdfstartview       = {FitH},
+%  pdfborder          = {0 0 0},
+%  bookmarksopen      = true,
+  bookmarksnumbered  = true,
+%  bookmarksopenlevel = 2,
+  colorlinks = true,     linkcolor  = darkblue,
+  citecolor  = darkblue, filecolor  = darkblue,
+  menucolor  = darkblue, urlcolor   = darkblue
+}
+
+
+\usepackage[utf8]{inputenc}
+\usepackage[T2A]{fontenc}
+\usepackage[russian,english]{babel}
+
+\MakeShortVerb{\|}
+
+\def\file#1{\texttt{#1}}
+\def\pkg#1{\textsf{#1}}
+\def\cmd#1{\texttt{#1}}
+
+\newcommand\DescribeEntry[1]{%
+  \DescribeMacro{#1}\index{Entry!\texttt{#1}}%
+}
+\newcommand\DescribeFunction[1]{%
+  \DescribeMacro{#1}\index{\texttt{#1}}%
+}
+\newcommand\DescribeField[1]{%
+  \DescribeMacro{#1}\index{Field!\texttt{#1}}%
+}
+
+
+\GetFileInfo{gost.dtx}
+\EnableCrossrefs
+%\DisableCrossrefs   % Say \DisableCrossrefs if index is ready
+\RecordChanges       % Gather update information
+\CodelineIndex       % Index code by line number
+%\PageIndex           % Index code by page number
+
+\title{The GOST package}
+
+\author{
+    Igor A. Kotelnikov\thanks{\texttt{kia999@mail.ru}}
+}
+
+\date{\filedate, \fileversion}
+
+\makeindex
+
+\begin{document}
+  \maketitle
+  \DocInput{gost.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{439}
+%
+% \changes{v1.2}{20 Feb 2012}{Support for natbib package}
+% \changes{v1.2}{13 Feb 2012}{Fix bbl.urldate for ukrainian (Andrey Shvajkoy)}
+% \changes{v1.2}{02 Feb 2012}{Thesis entry, report entry}
+% \changes{v1.2}{01 Feb 2012}{Medium field}
+% \changes{v1.2}{30 Jan 2012}{Strict option}
+% \changes{v1.2}{29 Jan 2012}{Refactoring, Documentation}
+% \changes{v1.2}{26 Jan 2012}{Entries eprint, eprintclass, eprinttype}
+% \changes{v1.2}{26 Jan 2012}{Options modern, long, eprint}
+% \changes{v1.1}{25 Jan 2012}{Gost705.dtx borrowed from Disser pkg}
+% \changes{v1.1}{21 Jan 2012}{Upload to CTAN}
+% \changes{v1.1}{15 Jan 2012}{Added German, French, Italian languages}
+% \changes{v1.1}{15 Jan 2012}{Entry ONLINE}
+% \changes{v1.0}{12 Aug 2005}{Bug fix (long annote)}
+% \changes{v0.9}{07 Oct 2003}{Bug fix in names and date formatting}
+% \changes{v0.9}{07 Oct 2003}{Bug fix in INPROCEEDINGS}
+% \changes{v0.8}{10 Aug 2003}{\cs{BibEmph} added}
+% \changes{v0.8}{06 Jun 2003}{Entry ANNOTE added}
+% \changes{v0.8}{06 Jun 2003}{\cs{BibUrl} added}
+% \changes{v0.8}{06 Jun 2003}{\cs{BibAnnote} added}
+%
+% \DoNotIndex{\cyra,\cyrb,\cyrv,\cyrg,\cyrd,\cyre}
+% \DoNotIndex{\CYRP,\cyrii,\cyrr,\cyre,\cyro,\CYRU,\cyrk,\cyrl,\CYRS,\cyrs|}
+% \DoNotIndex{\cyrt,\cyri,\cyrz,\CYRT,\cyrm}
+% \DoNotIndex{\cyr,\cyrc,\CYRD,\cyrery,\cyrh,\CYRK,\CYRM,\CYRN,\cyrn}
+% \DoNotIndex{\cyrp,\cyrs,\cyrshch,\cyru,\CYRV,\cyrya}
+% \DoNotIndex{\z@skip,\z@}
+%
+% \begin{abstract}
+%
+% GOST is a bundle of BibTeX styles designed to meet State Standards (GOST)
+% on information, librarianship and publishing issued by The Russian Federation
+% and Interstate Committee of former USSR States.
+%
+% It comprises 16 BibTeX styles to format bibliography in English, Russian
+% and Ukrainian according to GOST 7.0.5-2008 and GOST 7.1-2003. Both 8-bit
+% and Unicode (UTF-8) versions of each BibTeX style, in each case offering
+% a choice of sorted and unsorted. Further, 2 more styles, |gost780| and
+% |gost780s| styles (not conforming to effective standards) are retained
+% for backwards compatibility.
+%
+% \end{abstract}
+%
+% \section{Introduction}
+%   The package was initially developed by Maksym Polyakov. It was later
+%   updated by Igor Kotelnikov to the present status and some code was borrowed
+%   from \pkg{disser} package developed by Stanislav Kruchinin and unpublished
+%   work by Artem Petrenkov.
+%
+%   Nowdays, GOST is a bundle of BibTeX styles designed to meet State Standards
+%   (GOST) on information, librarianship and publishing issued by
+%   Russian Federation and interstate committee of former USSR States.
+%
+%   The System of Standards includes:
+%   \begin{description}
+%   \item[GOST 7.0.5-2008]
+%                Bibliographic reference.
+%                General requirements and rules of making.
+%   \item[GOST 7.1  -2003]
+%                Bibliographic record.
+%                Bibliographic description.
+%                General requirements and rules.
+%   \item[GOST 7.80 -2000]
+%                Bibliographic record.
+%                Heading. General requirements and rules.
+%   \item[GOST 7.11 -2004]
+%                Bibliographic description and references.
+%                Rules for the abbreviation of words and word combinations
+%                in foreign European languages.
+%   \item[GOST 7.83 -2001]
+%                Electronic editions. Basic types and imprint.
+%   \end{description}
+%   ect.
+%
+%   Currently, GOST contains 16 BibTeX styles to format bibliography in English,
+%   Russian and Ukrainian according to GOST 7.0.5-2008 and GOST 7.1-2003. Both
+%   8-bit and Unicode (UTF-8) versions of each BibTeX style, in each case
+%   offering a choice of sorted and unsorted. Further, 2 styles, |gost780| and
+%   |gost780s| styles (which do not conform to effective standards) are retained
+%   for backwards compatibility.
+%
+%   All styles in the GOST bundle are derived from single master file
+%   \file{gost.dtx} by applying different set of options as shown in the table
+%   below.
+%
+%   \begin{verbatim}
+%------------------------------------------------------------------------
+% Style         | utf8 | strict | modern | eprint | long | sort | natbib
+%------------------------------------------------------------------------
+% gost780       |      |        |        |        |      |      |
+% gost780s      |      |        |        |        |      |   +  |
+%------------------------------------------------------------------------
+% gost2003      |      |   +    |        |    +   |      |      |
+% gost2003s     |      |   +    |        |    +   |      |   +  |
+% gost2008      |      |        |   +    |    +   |      |      |
+% gost2008n     |      |        |   +    |    +   |      |      |   +
+% gost2008l     |      |        |   +    |    +   |   +  |      |
+% gost2008s     |      |        |   +    |    +   |      |   +  |
+% gost2008ns    |      |        |   +    |    +   |      |   +  |   +
+% gost2008ls    |      |        |   +    |    +   |   +  |   +  |
+%------------------------------------------------------------------------
+% ugost2003     |  +   |   +    |        |    +   |      |      |
+% ugost2003s    |  +   |   +    |        |    +   |      |   +  |
+% ugost2008     |  +   |        |   +    |    +   |      |      |
+% ugost2008n    |  +   |        |   +    |    +   |      |      |   +
+% ugost2008l    |  +   |        |   +    |    +   |   +  |      |
+% ugost2008s    |  +   |        |   +    |    +   |      |   +  |
+% ugost2008ns   |  +   |        |   +    |    +   |      |   +  |   +
+% ugost2008ls   |  +   |        |   +    |    +   |   +  |   +  |
+%------------------------------------------------------------------------
+% Style         | utf8 | strict | modern | eprint | long | sort | natbib
+%------------------------------------------------------------------------
+%   \end{verbatim}
+%
+% |Gost2008| style is recommended for most applications. It corresponds to the
+% currently effective Standard 7.0.5-2008. Librarians should use the style
+% |gost2003| instead of |gost2008| to compile a library catalog to meet the
+% Standard 7.1-2003. Use of other styles is best explained through
+% the meaning of options used to compile those styles from the master source.
+%
+% Two styles, |gost780| and |gost780s|, compiled without |modern| and |strict|
+% options, are retained for backward compatibility. They do not conform
+% the Standards 7.0.5-2008 and 7.1-2003 cited above.
+%
+% The |strict| option provides conformance to the Standard 7.1-2003. The
+% styles compiled with that option bear the name |gost2003| with possible
+% suffixes |s|, |l|, |n| as explained below. These styles are intended
+% primarily for the librarians who compose a library catalog.
+%
+% The |modern| option meets the Standard 7.0.5-2008 which can be thought
+% off as a relaxed version of the Standards 7.1-2003. The styles compiled with
+% that option bear the name |gost2008| with possible suffixes |s|, |l|, |n|.
+% The |strict| option  has precedence over |modern| so that a style compiled
+% with both options will resemble mainly the |gost2003| style rather than
+% |gost2008|.
+%
+% If the number of authors exceeds 4, modern styles cut the list of authors
+% to at most 4 persons as prescibed by the Standards. The option
+% |long| overrides this rule to provide backward compatibility with the
+% package disser by Stanislab Kruchinin. Two styles, |gost2008l| and
+% |gost2008ls|, compiled with the option |long| mimic behavior of the styles
+% |gost705| and |gost705s| from the disser package. Major
+% effect of the |long| option is that the list of authors always
+% precedes book or article title no matter how long is it.
+% Modern styles compiled without |long| place long list of authors behind
+% the title. The names of styles compiled with the option |long| has the
+% suffix |l|. Recall that those styles do not conform effective Standards and
+% their use is discouraged.
+%
+% The |eprint| option enables formatting electronic publications. In particular,
+% it enables |eprint|, |eprinttype|, |eprintclass|, and |doi| fields for a
+% bibliographic entry. The styles generated without the |eprint| option,
+% ignore the these fields. Starting from the
+% version 1.2 of the GOST package, all modern styles are compiled with this
+% option included, and the suffix |e| which designated
+% this option in earlier  versions is not appended to the name of style
+% any more.
+%
+% The |natbib| option provides compatibility with the |natbib| package. The names
+% of styles compiled with the option |natbib| bear the suffix |n|. Currently
+% 4 styles with that option are available for beta testing.
+%
+% The |sort| option enables sorting bibliographic references by author names
+% and references titles. The names of styles compiled with the option |sort|
+% bear the suffix |s|.
+%
+% Finally, the |utf8| option produces bibliographic styles in unicode rather
+% that in 8-bit encoding. Names of those styles bear the prefix |u|.
+%
+%
+% Beyond bibliographic style, GOST bundle contains CS files (codepage and
+% sorting order).
+%   \begin{verbatim}
+%  ----------------------------------------------------------------
+%  Encoding        |   CSF                 Sorting order
+%  ----------------------------------------------------------------
+%  cp866           |   ruscii.csf          Cyrillic first, Latin
+%  cp1251          |   cp1251.csf          Cyrillic first, Latin
+%  koi8-u          |   koi8u.csf           Cyrillic first, Latin
+%  utf8            |   utf8cyrillic.csf    Cyrillic first, Latin
+%  ----------------------------------------------------------------
+%   \end{verbatim}
+%
+%  In addition, BibTeX8 distribution comes with few more CSFs.
+%   \begin{verbatim}
+%  ----------------------------------------------------------------
+%  Encoding        |   CSF                 Sorting order
+%  ----------------------------------------------------------------
+%  cp866           |   cp866rus.csf        Latin first, Cyrillic
+%  ----------------------------------------------------------------
+%   \end{verbatim}
+%
+%   \subsection{How to use}
+%
+%   \begin{enumerate}
+%   \item
+%   Select bibliography style by adding appropriate |\bibliographystyle|
+%   declaration to your source file \file{<filename>.tex}, e.g.
+%   \begin{verbatim}
+%   \bibliographystyle{gost2008}
+%   \bibliography{database}
+%   \end{verbatim}
+%
+%   \item
+%   Add the field |language="ukrainian"| or |language="russian"| to the
+%   bibliographic entries in Ukrainian or Russian languages in your
+%   database; English is the default language. German, Italian and
+%   French are partially supported.
+%
+%   \item
+%   To compile list of references from your database use \file{bibtex8.exe}
+%   rather than \file{bibtex.exe}. Depending on the codepage of your
+%   bibliographic database, indicate one of the CS files
+%   listed above as option to \file{bibtex8.exe}.  Run LaTeX, then run
+%   \file{bibTeX8} and LaTeX again:
+%   \begin{verbatim}
+%   latex <filename>.tex
+%   bibtex8 -B -c <csf_file>.csf <filename>.aux
+%   latex <filename>.tex
+%   \end{verbatim}
+
+%   \item
+%   For details on preparing bibliographic database see examples in
+%   \file{gost*.pdf}.
+
+%   \item
+%   \file{ugost*} styles are primarily intended for use
+%   with unicode compilers (\file{xelatex} and \file{lualatex}). They
+%   should be preferred as well when using 8bit compilers
+%   (\file{latex} and \file{pdflatex}) if source file is in utf8 encoding.
+%
+%   \item
+%   Neither \file{bitex.exe} nor \file{bitex8.exe} provides
+%   correct sorting order of unicode text. It means that using
+%   \file{ugost2008s} or \file{ugost2008ns} may produce unexpected result
+%   for documents in \texttt{utf8} encoding.
+%
+%   \item
+%   \file{Bibtex8} fails to change case of a string if it contains Cyrillic
+%   letter in unicode. Therefore \file{ugost2008*} styles do not change case of
+%   titles and other parts of bibliographic record while 8-bit styles
+%   do the case change where appropriate.
+%
+%   \item
+%   Either \file{bibtex8} or \file{Bibtex8} fail to cut Cyrillic names to
+%   initials. Therefore \file{ugost2008*} styles do not modify name of
+%   authors.
+%
+%   \item
+%   Package |natbib| is required when choosing styles with
+%   suffix |n| int their names.
+%
+%   \end{enumerate}
+%
+%
+%   \subsection{Customization}
+%
+%   Every GOST style defines few commands to format some parts of a
+%   reference. You can redefine these commands prior to
+%   the |\bibliography{<bibtex_style>}| command. Initial
+%   definitions are listed below.
+%   \begin{verbatim}
+%   \providecommand*{\url}[1]{{\small #1}}
+%   \providecommand*{\BibUrl}[1]{\url{#1}}
+%   \providecommand{\BibAnnote}[1]{}
+%   \providecommand*{\BibEmph}[1]{#1}
+%   \end{verbatim}
+%
+%   By default, gost styles separate logical parts of a bibliography
+%   record by a period and cyrdash (|. "---|). It is legitimate to drop
+%   that dash by overriding the command |\BibDash| as follows
+%
+%   \begin{verbatim}
+%   \providecommand*{\BibDash}{}
+%   \end{verbatim}
+%
+%   By default, |\BibDash| is equivalent to the shorthand |"---|
+%   defined by the babel package with the option |russian|.
+%   It prints a so called Cyrillic dash (|\cyrdash|),
+%   which is 20% shorter then ordinary LaTeX dash (|---|), and puts
+%   unbreakable space before |\cyrdash| so that dash never appears
+%   in the beginning of a line.
+%
+%   \subsection{Where to get}
+%
+%   \begin{enumerate}
+%   \item
+%   \href{http://ctan.org/tex-archive/biblio/bibtex/contrib/gost}
+%       {CTAN:biblio/bibtex/contrib/gost}.
+%   \item
+%   \href{http://ctan.org/pkg/gost}
+%       {CTAN:pkg/gost}.
+%   \end{enumerate}
+%
+%   \subsection{What's new in version 1.2 (2012.02.22)}
+%
+%   \begin{enumerate}
+%   \item
+%   Code refactoring. All styles are now generated from single source file.
+%
+%   \item
+%   Support for GOST-7.1-2003. The field |medium| is added to reflect type
+%   of material. For most entry types |medium| defaults to |text|.
+%
+%   \item
+%   Support for |natbib| package.
+%
+%   \item
+%   Support for |natbib| package.
+%
+%   \item
+%   All modern styles are now compiled with the |eprint| option.
+%
+%   \end{enumerate}
+%
+%
+%   \subsection{What's new in version 1.1 (2012.01.21)}
+%
+%   \begin{enumerate}
+%   \item
+%   Support for GOST 7.0.5-2008 and GOST 7.1-2003 is provided.
+%
+%   \item
+%   |@Online| entry is added to format a reference to electronic
+%      resource on Internet.
+%
+%   \item
+%   |@MastersThesis| entry is added to format a reference to master's thesis.
+%
+%   \item
+%   |@DSciThesis| entry is added to format a reference to doctor of
+%   sciences thesis.
+
+%   \item
+%   |Urldate|, |eprint|, |eprintclass|, |eprinttype| fields are added.
+%
+%   \end{enumerate}
+%
+%   \subsection{Version history}
+%
+%   \begin{enumerate}
+%   \item[2012.02.22] Support for |natbib| package.
+%   \item[2012.02.02] Adaptation to GOST 7.0.5, electronic publishing.
+%   \item[2005.08.12] First version uploaded to CTAN.
+%   \item[2003.06.06] First public version.
+%   \end{enumerate}
+%
+% \StopEventually{
+%   \IndexPrologue{\section{Index}
+%       Numbers written in dark blue refer to the page where the corresponding
+%       entry is described; numbers in black roman refer to the code lines where
+%       the entry is used.
+%   }
+%   \PrintChanges
+%   \PrintIndex
+% }
+%
+% \section{Implementation}
+%
+%   We need Russian fonts to produce documentation of the code below.
+%   Therefore we switch current language to Russian by issuing the command
+%   |\selectlanguage{russian}|.
+%
+% \selectlanguage{russian}
+%
 %    \begin{macrocode}
-%<*gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%</gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
-%<gost71s|gost71u>%% GOST 7.1-2004 (superseeded)
-%<gost780s|gost780u>%% (obsolete)
-%<gost705s|gost705u>%% GOST 7.0.5-2008
-%<*gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%%
-%%
-%% Requires 8-bit bibtex with switch -B and csf file supporting cyrillic.
-%% bibtex8 -B -c <encoding>.csf <your_document>
+%<*bst>
 %%
+%% This bibstyle attempts to format bibliography according to
+%<!modern>%% GOST 7.80-2000 for bibliographic records.
+%<modern>%% GOST 7.0.5-2008 for bibliographic reference.
+%<*natbib>%%
+%%-------------------------------------------------------------------
+%% This is an author-year citation style bibliography.
+%% It requires a special package file to function properly
+%% such as natbib.sty by Patrick W. Daly.
+%% The form of the \bibitem entries is
+%%   \bibitem[Jones et al.(1990)]{key}...
+%%   \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}...
+%% where the label part (in brackets) consists of the author names,
+%% as they should appear in the citation, with the year in parentheses following.
+%% There must be no space before the opening parenthesis!
+%% A full list of authors may also follow the year.
+%% In natbib.sty, it is possible to define the type of enclosures that is
+%% really wanted (brackets or parentheses), but in either case, there must
+%% be parentheses in the label.
+%% The \cite command functions as follows:
+%%   \citet{key}              => Jones et al. (1990)
+%%   \citet*{key}             => Jones, Baker, and Smith (1990)
+%%   \citep{key}              => (Jones et al., 1990)
+%%   \citep*{key}             => (Jones, Baker, and Smith, 1990)
+%%   \citep[chap. 2]{key}     => (Jones et al., 1990, chap. 2)
+%%   \citep[e.g.][]{key}      => (e.g. Jones et al., 1990)
+%%   \citep[e.g.][p. 32]{key} => (e.g. Jones et al., p. 32)
+%%   \citeauthor{key}         => Jones et al.
+%%   \citeauthor*{key}        => Jones, Baker, and Smith
+%%   \citeyear{key}           => 1990
+%%---------------------------------------------------------------------
+%</natbib>
 
+%    \end{macrocode}
+% \subsection{Fields}
+%
+% Enlist all entry types allowed in a bibliographic database.
+% Most entries are common for many standard bst styles.
+%    \begin{macrocode}
 ENTRY
   { address
     annote
@@ -45,25 +552,42 @@ ENTRY
     number
     organization
     pages
-    numpages
     publisher
     school
     series
     title
+    medium % new in v.2.
     type
     volume
     year
     language
     booklanguage
+%    \end{macrocode}
+%   Remaining entries are borrowed from biblatex.
+%    \begin{macrocode}
+    numpages
     url
     urldate
+    isbn
+    doi
+%    archive
+    eprinttype   % = archivePrefix
+    eprintclass  % = primaryClass
+    eprint
   }
   {}
-  { label }
+%<!natbib>  { label }
+%<natbib>  { label extra.label sort.label short.list }
 
+%    \end{macrocode}
+% Declare internal variables and constants used in to format references.
+%    \begin{macrocode}
 INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
+after.dblslash after.slash after.column after.semicolumn }
 
+%    \end{macrocode}
+% \DescribeFunction{init.state.consts}%
+%    \begin{macrocode}
 FUNCTION {init.state.consts}
 { #0 'before.all :=
   #1 'mid.sentence :=
@@ -79,32 +603,38 @@ STRINGS { s t }
 
 STRINGS { curlanguage }
 
+%    \end{macrocode}
+%
+% \subsection{Formatting functions}
+%
+% \DescribeFunction{change.language}
+% Declare function to switch language.
+%    \begin{macrocode}
 FUNCTION {change.language}
 { booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
+    { "" }
+    { booklanguage  'curlanguage :=
+      "\selectlanguageifdefined{"
+      curlanguage *
+      "}" *
+    }
   if$
 }
 
+%    \end{macrocode}
+%
+% Declare functions to output various parts of bibliographic record.
+% \DescribeFunction{output.nonnull}
+%    \begin{macrocode}
 FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
+{
+  swap$
   output.state mid.sentence =
     { ", " * write$ }
     { output.state after.block =
         { add.period$ write$
-%</gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
-%<*gost780s|gost780u>
-          " " quote$ "--- " * *  write$
-%</gost780s|gost780u>
-%<*gost71s|gost71u|gost705s|gost705u>
-          " \BibDash " write$
-%</gost71s|gost71u|gost705s|gost705u>
-%<*gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
+%<!modern>          " " quote$ "--- " * *  write$
+%<modern>          " \BibDash " write$
           newline$
           "\newblock " write$
         }
@@ -115,14 +645,16 @@ FUNCTION {output.nonnull}
                 { output.state after.slash =
                     { "~/ " * write$ }
                     { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-	                       { add.period$ " " * write$ }
-    	                if$
-                       }
-                    if$
-                  }
+%<!(strict|modern)>                        { ": " * write$ }
+%<strict|modern>                        { "~: " * write$ }
+                        { output.state after.semicolumn =
+%<!(strict|modern)>                            { "; " * write$ }
+%<strict|modern>                            { "~; " * write$ }
+	                        { add.period$ " " * write$ }
+    	                  if$
+                        }
+                      if$
+                    }
                   if$
                 }
               if$
@@ -133,9 +665,13 @@ FUNCTION {output.nonnull}
       mid.sentence 'output.state :=
     }
   if$
-%%%  s
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{output}
+% \DescribeFunction{output.check}
+%    \begin{macrocode}
 FUNCTION {output}
 { duplicate$ empty$
     'pop$
@@ -151,12 +687,26 @@ FUNCTION {output.check}
   if$
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{fin.entry}
+%   |fin.entry| finalizes current entry. It writes dot, if no dot is found in
+%   stack, and starts new line.
+%    \begin{macrocode}
 FUNCTION {fin.entry}
 { add.period$
   write$
   newline$
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{new.block}%
+%   Declare family of functions to put punctuation marks  depending of current
+%   status of output stack. The just check output state and revert it another
+%   state if required. Checking output state prevents occasional doubling of
+%   punctuation marks.
+%    \begin{macrocode}
 FUNCTION {new.block}
 { output.state before.all =
     'skip$
@@ -164,6 +714,9 @@ FUNCTION {new.block}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.dblslash}%
+%    \begin{macrocode}
 FUNCTION {new.dblslash}
 { output.state before.all =
     'skip$
@@ -171,6 +724,9 @@ FUNCTION {new.dblslash}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.slash}%
+%    \begin{macrocode}
 FUNCTION {new.slash}
 { output.state before.all =
     'skip$
@@ -178,6 +734,9 @@ FUNCTION {new.slash}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.column}%
+%    \begin{macrocode}
 FUNCTION {new.column}
 { output.state before.all =
     'skip$
@@ -185,6 +744,9 @@ FUNCTION {new.column}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.semicolumn}%
+%    \begin{macrocode}
 FUNCTION {new.semicolumn}
 { output.state before.all =
     'skip$
@@ -192,6 +754,9 @@ FUNCTION {new.semicolumn}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.sentence}%
+%    \begin{macrocode}
 FUNCTION {new.sentence}
 { output.state after.block =
     'skip$
@@ -203,34 +768,72 @@ FUNCTION {new.sentence}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{add.blank}%
+%    \begin{macrocode}
 FUNCTION {add.blank}
 { " " * before.all 'output.state :=
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{not}
+%   Declare few logical functions.
+%    \begin{macrocode}
 FUNCTION {not}
 {   { #0 }
     { #1 }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{and}
+%    \begin{macrocode}
 FUNCTION {and}
 {   'skip$
     { pop$ #0 }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{or}
+%    \begin{macrocode}
 FUNCTION {or}
 {   { pop$ #1 }
     'skip$
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{chop.word}
+% The function |chop.word| in |substr len str chop.word| removes given substring
+% |substr| of length |len| from the beginning of the string |str|.
+%    \begin{macrocode}
+%<*sort|natbib>
+INTEGERS { len }
+
+FUNCTION {chop.word}
+{ 's :=
+  'len :=
+  s #1 len substring$ =
+    { s len #1 + global.max$ substring$ }
+    's
+  if$
+}
+%</sort|natbib>
+
+%    \end{macrocode}
+% \DescribeFunction{non.stop}
+%    \begin{macrocode}
 FUNCTION {non.stop}
 { duplicate$
    "}" * add.period$
    #-1 #1 substring$ "." =
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.block.checka}
+%    \begin{macrocode}
 FUNCTION {new.block.checka}
 { empty$
     'skip$
@@ -238,6 +841,9 @@ FUNCTION {new.block.checka}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.block.checkb}
+%    \begin{macrocode}
 FUNCTION {new.block.checkb}
 { empty$
   swap$ empty$
@@ -247,6 +853,9 @@ FUNCTION {new.block.checkb}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.sentence.checka}
+%    \begin{macrocode}
 FUNCTION {new.sentence.checka}
 { empty$
     'skip$
@@ -254,6 +863,9 @@ FUNCTION {new.sentence.checka}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.sentence.checkb}
+%    \begin{macrocode}
 FUNCTION {new.sentence.checkb}
 { empty$
   swap$ empty$
@@ -263,6 +875,20 @@ FUNCTION {new.sentence.checkb}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{new.dblslash.checka}
+% For |online| entry.
+%    \begin{macrocode}
+FUNCTION {new.dblslash.checka}
+{ empty$
+    'skip$
+    'new.dblslash
+  if$
+}
+
+%    \end{macrocode}
+% \DescribeFunction{field.or.null}
+%    \begin{macrocode}
 FUNCTION {field.or.null}
 { duplicate$ empty$
     { pop$ "" }
@@ -270,6 +896,11 @@ FUNCTION {field.or.null}
   if$
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{emphasize}
+% Declare function to emphasize last string in stack.
+%    \begin{macrocode}
 FUNCTION {emphasize}
 { duplicate$ empty$
     { pop$ "" }
@@ -277,331 +908,678 @@ FUNCTION {emphasize}
   if$
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{enclose.square.brackets}
+% New in v.1.2.
+% Declare function to enclose last word in square brackets. It do so only
+% for the |string| option.
+%    \begin{macrocode}
+%<*!strict>
+FUNCTION {enclose.square.brackets} { }
+%</!strict>
+%<*strict>
+FUNCTION {enclose.square.brackets}
+{ duplicate$ empty$
+    { pop$ "" }
+    { "[" swap$ * "]" * }
+  if$
+}
+%</strict>
+
+
+% \DescribeFunction{bracify}
+% \DescribeFunction{bracketise}
+% \DescribeFunction{parenthesify}
+% New in v.1.2. An idea borrowed from apsrev4-1.bst.
+% Declare function to enclose last word in braces, square brackets and
+% parenthesis.
+%    \begin{macrocode}
+FUNCTION {bracify}
+{ duplicate$ empty$
+    { pop$ "{}" }
+    { "{" swap$ * "}" * }
+  if$
+}
+FUNCTION {bracketise}
+{ duplicate$ empty$
+    { pop$ "[]" }
+    { "[" swap$ * "]" * }
+  if$
+}
+FUNCTION {parenthesify}
+{ duplicate$ empty$
+    { pop$ "()" }
+    { "(" swap$ * ")" * }
+  if$
+}
+
+
+%    \end{macrocode}
+%
+% \DescribeFunction{space.word}
+% |space.word| inserts space before last string in stack.
+%    \begin{macrocode}
 FUNCTION {space.word}
 { " " swap$ * " " * }
 
-
+%    \end{macrocode}
+%
+% \subsection{Standard abbreviations}
+%
+% Declare language-sensitive abbreviations.
+% \DescribeFunction{bbl.edby}
+%    \begin{macrocode}
 FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.\ }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
+{ curlanguage "english" =
+   {"Ed.\ by"}
+   { curlanguage "ukrainian" =
+%<!utf8>      {"{\cyr\CYRP\cyrii\cyrd\ \cyrr\cyre\cyrd.}"}
+%<utf8>      {"Під ред."}
+      { curlanguage "russian" =
+%<!utf8>         {"{\cyr\CYRP\cyro\cyrd\ \cyrr\cyre\cyrd.}"}
+%<utf8>         {"Под ред."}
+         { curlanguage "german" =
+            { "ed." }
+            {"language is not defined: " language "edby" * * warning$ "Ed.\ by"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.cmplr}
+%    \begin{macrocode}
 FUNCTION {bbl.cmplr}
-{  curlanguage "english" =
-    {"Compiler "}
-    { curlanguage "ukrainian" =
-        {"{\cyr\CYRU\cyrk\cyrl.\ }"}
-        { curlanguage "russian" =
-           {"{\cyr\CYRS\cyro\cyrs\cyrt.\ }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
+{ curlanguage "english" =
+   { "Compiler"}
+   { curlanguage "german" =
+      { "Hrsg." }
+      { curlanguage "ukrainian" =
+%<!utf8>         {"{\cyr\CYRU\cyrk\cyrl.}"}
+%<utf8>         {"{Укл.}"}
+         { curlanguage "russian" =
+%<!utf8>            {"{\cyr\CYRS\cyro\cyrs\cyrt.}"}
+%<utf8>            {"{Сост.}"}
+            {"language is not defined: " language  "cmplr" * * warning$ "Compiler"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.edition}
+%    \begin{macrocode}
 FUNCTION {bbl.edition} %  { "\bbledition{}" }
 { curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{\cyr\cyrv\cyri\cyrd.}"}
+   {"edition"}
+   { curlanguage "ukrainian" =
+%<!utf8>      {"{\cyr\cyrv\cyri\cyrd.}"}
+%<utf8>      {"{вид.}"}
       { curlanguage "russian" =
-        {"{\cyr\cyri\cyrz\cyrd.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
+%<!utf8>         {"{\cyr\cyri\cyrz\cyrd.}"}
+%<utf8>         {"{изд.}"}
+         { curlanguage "german" =
+            {" {aus.}" } %%%% { "Aufl." } ??
             { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
+               {"edizione"}
+               { curlanguage "french" =
+                  {"\'{e}dition"}
+                  {"language is not defined: " language  "edition" * * warning$ "edition"}
+               if$}
             if$}
-          if$}
-        if$}
+         if$}
       if$}
-    if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.vvolume}
+%    \begin{macrocode}
 FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT\cyro\cyrm"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
+   {"Volume"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      { "\CYRT\cyro\cyrm" }
+%<utf8>      { "Том" }
+      { curlanguage "german" =
+         {"{Band}"} %%%% { "Volumen" }
+         {"language is not defined: " language  "vvolume" * * warning$ "Volume"}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.vvol}
+%    \begin{macrocode}
 FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRT."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
+   {"Vol."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"\CYRT."}
+%<utf8>      {"Т."}
+      { curlanguage "german" =
+         {"{Bd.}"} %%%% { "Vol." }
+         {"language is not defined: " language  "vvol" * * warning$ "Vol."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.iissue}
+%    \begin{macrocode}
 FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-    {"Issue"}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
+{ curlanguage "english" =
+   {"Issue"}
+   { curlanguage "ukrainian" =
+%<!utf8>      {"\CYRV\cyri\cyrp\cyru\cyrs\cyrk"}
+%<utf8>      {"Випуск"}
+      { curlanguage "russian" =
+%<!utf8>         {"\CYRV\cyrery\cyrp\cyru\cyrs\cyrk"}
+%<utf8>         {"Выпуск"}
+         { curlanguage "german" =
+            {"{Heft}"} %%%% { "Ausgabe" }
+            {"language is not defined: " language "iissue" * * warning$ "Issue"}
+         if$}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.iiss}
+%    \begin{macrocode}
 FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"\CYRV\cyri\cyrp."}
-        { curlanguage "russian" =
-           {"\CYRV\cyrery\cyrp."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
+{ curlanguage "english" =
+   {"Iss."}
+   { curlanguage "ukrainian" =
+%<!utf8>      {"\CYRV\cyri\cyrp."}
+%<utf8>      {"Вип."}
+      { curlanguage "russian" =
+%<!utf8>         {"\CYRV\cyrery\cyrp."}
+%<utf8>         {"Вып."}
+         { curlanguage "german" =
+            {"{H.}"}
+            {"language is not defined: " language "iiss" * * warning$ "Iss."}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.of}
+%    \begin{macrocode}
 FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrii\cyrz}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri\cyrz}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
+{ curlanguage "english" =
+   {"of"}
+   { curlanguage "german" =
+      { "von" }
+      { curlanguage "ukrainian" =
+%<!utf8>         { "{\cyr\cyrii\cyrz}" }
+%<utf8>         { "{із}" }
+         { curlanguage "russian" =
+%<!utf8>            { "{\cyr\cyri\cyrz}" }
+%<utf8>            { "{из}" }
+            {"language is not defined: " language "of" * * warning$ "of"}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.etal}
+%    \begin{macrocode}
 FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
-        { curlanguage "russian" =
-           {"{\cyr\cyri~\cyrd\cyrr.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
+{ curlanguage "english" =
+   {"et~al."}
+   { curlanguage "german" =
+      { "u.~a." }
+      { curlanguage "ukrainian" =
+%<!utf8>         {"{\cyr\cyrt\cyra~\cyrii\cyrn.}"}
+%<utf8>         {"{та~ін.}"}
+         { curlanguage "russian" =
+%<!utf8>            {"{\cyr\cyri~\cyrd\cyrr.}"}
+%<utf8>            {"и~др."}
+            {"language is not defined: " language  "et~al" * * warning$ "et~al."}
          if$}
       if$}
-  if$
-}
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.and}
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {bbl.and}      %  { "\bbland{}" }
+{ curlanguage "english" =
+   {"and"}
+   { curlanguage "german" =
+      { "und" }
+      { curlanguage "ukrainian" =
+%<!utf8>         {"{\cyrii}"}
+%<utf8>         {"і"}
+         { curlanguage "russian" =
+%<!utf8>            {"{\cyri}"}
+%<utf8>            {"и"}
+            {"language is not defined: " language  "and" * * warning$ "and"}
+         if$}
+      if$}
+   if$}
+if$}
+%</natbib>
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.nnumber}
+%    \begin{macrocode}
 FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
 { curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"\CYRN\cyro\cyrm\cyre\cyrr"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
+   {"Number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      { "\CYRN\cyro\cyrm\cyre\cyrr" }
+%<utf8>      { "{Номер}" }
+      { curlanguage "german" =
+         {"{Heft}"} %%% { "Anzahl" }
+         {"language is not defined: " language  "nnumber" * * warning$ "Number"}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.number}
+%    \begin{macrocode}
 FUNCTION {bbl.number}  %  { "\bblnumber{}" }
 { curlanguage "english" =
-    {"number"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+   {"number"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"{\cyr\cyrn\cyro\cyrm\cyre\cyrr}"}
+%<utf8>      {"{номер}"}
       { curlanguage "german" =
-         {"{anzahl}"}
+         {"{Heft}"} %%% { "anzahl" }???
          {"language is not defined: " language  "number" * * warning$ "number"}
       if$}
-    if$}
-  if$
-}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.nr}
+%    \begin{macrocode}
 FUNCTION {bbl.nr}     %   { "\bblno{}" }
 { curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\textnumero}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
+   {"no."}
+   { curlanguage "italian" =
+      { "no" }
+      { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>         { "{\cyr\textnumero}" }
+%<utf8>         { "{№}" }
+         { curlanguage "german" =
+            {"{H.}"} %%% { "an." }
+            {"language is not defined: " language "nr" * * warning$ "no."}
+         if$}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.nnr}
+%    \begin{macrocode}
 FUNCTION {bbl.nnr}     %   { "\bblno{}" }
 { curlanguage "english" =
-    {"No."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{\cyr\textnumero}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
+   {"No."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      { "{\cyr\textnumero}" }
+%<utf8>      { "{№}" }
+      { curlanguage "german" =
+         {"{H.}"} %%% { "an." }
+         {"language is not defined: " language  "nnr" * * warning$ "No."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.in}
+%    \begin{macrocode}
 FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-    {"in"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrv}"}
-           {"language is not defined: " language  "in" * * warning$ "in"}
-      if$}
-  if$
-}
+{ curlanguage "english" = curlanguage "german" = or
+   {"in"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      { "{\cyr\cyrv}" }
+%<utf8>      { "{в}" }
+      {"language is not defined: " language  "in" * * warning$ "in"}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.iin}
+%    \begin{macrocode}
 FUNCTION {bbl.iin}  %     { "\bblIn{}" }
 { curlanguage "english" = curlanguage "german" = or
-    {"In"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"\CYRV"}
-           {"language is not defined: " language  "In" * * warning$ "In"}
-      if$}
-  if$
-}
+   {"In"}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      { "\CYRV" }
+%<utf8>      { "{В}" }
+      {"language is not defined: " language  "iin" * * warning$ "In"}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.pages}
+%    \begin{macrocode}
 FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
+{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
+   {"p."} %%% {"pp."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"{\cyr\cyrs.}"}
+%<utf8>      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "pages" * * warning$ "p."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.page}
+%    \begin{macrocode}
 FUNCTION {bbl.page}   %   { "\bblp."
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\cyrs.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
+   {"p."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"{\cyr\cyrs.}"}
+%<utf8>      {"{с.}"}
+      { curlanguage "german" =
+         {"S."} %%%% { "s." }
+         {"language is not defined: " language  "page" * * warning$ "p."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.ppages}
+%    \begin{macrocode}
 FUNCTION {bbl.ppages}%    { "\bblPp." }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
+   {"P."} %%%% { "Pp." }
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"{\cyr\CYRS.}"}
+%<utf8>      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language "ppages" * * warning$ "P."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.ppage}
+%    \begin{macrocode}
 FUNCTION {bbl.ppage}  %   { "\bblP." }
 { curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{\cyr\CYRS.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
+   {"P."}
+   { curlanguage "ukrainian" = curlanguage "russian" = or
+%<!utf8>      {"{\cyr\CYRS.}"}
+%<utf8>      {"{С.}"}
+      { curlanguage "german" =
+         {"S."}
+         {"language is not defined: " language  "ppage" * * warning$ "P."}
+      if$}
+   if$}
+if$}
 
+%    \end{macrocode}
+% Next function was added in version 2012.01.15.
+% \DescribeFunction{bbl.urldate}
+%    \begin{macrocode}
 FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyre\cyrn\cyrn\cyrya:"}
-        { curlanguage "russian" =
-           {"{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya: }"}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-%<*debug>
+{ curlanguage "english" =
+   {"online; accessed"}
+   { curlanguage "ukrainian" =
+%<!utf8>      { "{\cyrd\cyra\cyrt\cyra\ \cyrz\cyrv\cyre\cyrr\cyrn\cyre\cyrn\cyrn\cyrya}" }
+%<utf8>      { "{дата звернення}" }
+      { curlanguage "russian" =
+%<!utf8>         { "{\cyrd\cyra\cyrt\cyra\ \cyro\cyrb\cyrr\cyra\cyrshch\cyre\cyrn\cyri\cyrya}" }
+%<utf8>         { "{дата обращения}" }
+         { curlanguage "german" =
+            { "{online; abgerufen}" }
+            { "language is not defined: " language "urldate" * * warning$ "online; accessed" }
+         if$}
+      if$}
+   if$}
+if$}
 
-\def\bblchapter{chapter}        \def\bblchap{chap.}
-%\def\bblmthesis{Master's thesis}
-%\def\bblphdthesis{Ph.D. thesis}
-%\def\bblfirst{First}            \def\bblfirsto{1st}
-%\def\bblsecond{Second}          \def\bblsecondo{2nd}
-%\def\bblthird{Third}            \def\bblthirdo{3rd}
-%\def\bblfourth{Fourth}          \def\bblfourtho{4th}
-%\def\bblfifth{Fifth}            \def\bblfiftho{5th}
-%\def\bblst{st}  \def\bblnd{nd}  \def\bblrd{rd}
-%\def\bblth{th}
-%
-FUNCTION {bbl.chapter}   { "\bblchapter{}" }
-FUNCTION {bbl.techreport} {"Technical Report"}
-FUNCTION {bbl.first}     { "\bblfirsto{}" }
-FUNCTION {bbl.second}    { "\bblsecondo{}" }
-FUNCTION {bbl.third}     { "\bblthirdo{}" }
-FUNCTION {bbl.fourth}    { "\bblfourtho{}" }
-FUNCTION {bbl.fifth}     { "\bblfiftho{}" }
-FUNCTION {bbl.st}        { "\bblst" }
-FUNCTION {bbl.nd}        { "\bblnd" }
-FUNCTION {bbl.rd}        { "\bblrd" }
-FUNCTION {bbl.th}        { "\bblth" }
+%    \end{macrocode}
+% \DescribeFunction{bbl.techreport}
+%    \begin{macrocode}
+FUNCTION {bbl.techreport} % rename to bbl.techreport
+{ curlanguage "english" =
+   { "Rep." }
+   { curlanguage "german" =
+      { "Bericht" }
+      { curlanguage "russian" =
+%<!utf8>         { "{\cyr\CYRO\cyrt\cyrch\cyre\cyrt}" }
+%<utf8>         { "{Отчет}" }
+         { "language is not defined: " language "techrep" * * warning$ "Rep." }
+      if$}
+   if$}
+if$}
 
-%</debug>
+%    \end{macrocode}
+% \DescribeFunction{bbl.mthesis}
+%    \begin{macrocode}
+FUNCTION {bbl.mthesis}
+{ curlanguage "english" =
+   { "Master's thesis" }
+   { curlanguage "german" =
+      { "Diss.~Mag." }
+      { curlanguage "russian" =
+%<!utf8>        { "{\cyr\CYRK\cyrv\cyra\cyrl\cyri\cyrf\cyri\cyrk\cyra\cyrc\cyri"
+%<!utf8>          "\cyro\cyrn\cyrn\cyra\cyrya\ \cyrr\cyra\cyrb\cyro\cyrt\cyra\ " *
+%<!utf8>          "\cyrm\cyra\cyrg\cyri\cyrs\cyrt\cyrr\cyra}" * }
+%<utf8>         { "{Квалификационная работа магистра}" }
+         { "language is not defined: " language "mthesis" * * warning$ "Master's thesis" }
+      if$}
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.phdthesis}
+%    \begin{macrocode}
+FUNCTION {bbl.phdthesis}
+{ curlanguage "english" =
+   { "Ph.\,D. thesis" }
+   { curlanguage "german" =
+      { "Diss.~Ph.\,D." }
+      { curlanguage "russian" =
+%<!utf8>         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrk\cyra\cyrn\cyrd\cyri"
+%<!utf8>           "\cyrd\cyra\cyrt\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+%<utf8>         { "{Дисс\ldots\ кандидата наук}" }
+         { curlanguage "french" =
+           { "Th\`{e}se de doctorat" }
+           { "language is not defined: " language "phdthesis" * * warning$ "Ph.\,D. thesis" }
+         if$}
+      if$}
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.dscithesis}
+%    \begin{macrocode}
+FUNCTION {bbl.dscithesis}
+{ curlanguage "english" =
+   { "Dr.\,Sci. dissertation" }
+   { curlanguage "german" =
+      { "Diss.~Dr." }
+      { curlanguage "russian" =
+%<!utf8>         { "{\cyr\CYRD\cyri\cyrs\cyrs\ldots\ \cyrd\cyro\cyrk\cyrt\cyro"
+%<!utf8>           "\cyrr\cyra\ \cyrn\cyra\cyru\cyrk}" * }
+%<utf8>         { "{Дисс\ldots\ доктора наук}" }
+         { "language is not defined: " language "dscithesis" * * warning$ "Dr.\,Sci. dissertation" }
+      if$}
+   if$}
+if$}
 
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
+%    \end{macrocode}
+% \DescribeFunction{bbl.nnoaddress}
+%    \begin{macrocode}
+FUNCTION {bbl.nnoaddress}
+{ curlanguage "english" =
+   { "S.\ l." }
+   { curlanguage "russian" =
+%<!utf8>      { "{\cyr\CYRB.\ \cyrm.}" }
+%<utf8>      { "{Б.\ м.}" }
+      { "language is not defined: " language "nnoaddress" * * warning$ "S.\ l." }
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.nopublisher}
+%    \begin{macrocode}
+FUNCTION {bbl.nopublisher}
+{ curlanguage "english" =
+   { "s.\ n." }
+   { curlanguage "russian" =
+%<!utf8>      { "{\cyr\cyrb.\ \cyri.}" }
+%<utf8>      { "{б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "s.\ n." }
+   if$}
+if$}
 
+%    \end{macrocode}
+% \DescribeFunction{bbl.nnopublisher}
+%    \begin{macrocode}
+FUNCTION {bbl.nnopublisher}
+{ curlanguage "english" =
+   { "S.\ n." }
+   { curlanguage "russian" =
+%<!utf8>      { "{\cyr\CYRB.\ \cyri.}" }
+%<utf8>      { "{Б.\ и.}" }
+      { "language is not defined: " language "nnopublisher" * * warning$ "S.\ n." }
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.medium.text}
+%    \begin{macrocode}
+FUNCTION {bbl.medium.text}
+{ curlanguage "english" =
+   { "Text" }
+   { curlanguage "russian" = curlanguage "ukrainian" = or
+%<!utf8>      { "{\cyr\CYRT\cyre\cyrk\cyrs\cyrt}" }
+%<utf8>      { "{Текст}" }
+      { "language is not defined: " language "medium" * * warning$ "Text" }
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.medium.elres}
+%    \begin{macrocode}
+FUNCTION {bbl.medium.elres}
+{ curlanguage "english" =
+   { "Electronic resource" }
+   { curlanguage "russian" =
+%<!utf8>      { "{\cyr\CYREREV\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyrery\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+%<utf8>      { "{Электронный ресурс}" }
+      { curlanguage "ukrainian" =
+%<!utf8>        { "{\cyr\CYRE\cyrl\cyre\cyrk\cyrt\cyrr\cyro\cyrn\cyrn\cyri\cyrishrt\ \cyrr\cyre\cyrs\cyru\cyrr\cyrs}" }
+%<utf8>        { "{Електронний ресурс}" }
+        { "language is not defined: " language "medium" * * warning$ "Electronic resource" }
+      if$}
+   if$}
+if$}
+
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.chief}
+%    \begin{macrocode}
+FUNCTION {bbl.chief}
+{ curlanguage "english" =
+   { "chief" }
+   { curlanguage "russian" =
+%<!utf8>      { "\cyrr\cyru\cyrk." }
+%<utf8>      { "{рук.}" }
+      { curlanguage "ukrainian" =
+%<!utf8>        { "\cyrr\cyru\cyrk." }
+%<utf8>        { "{рук.}" }
+        { "language is not defined: " language "chief" * * warning$ "chief" }
+      if$}
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.executor}
+%    \begin{macrocode}
+FUNCTION {bbl.executor}
+{ curlanguage "english" =
+   { "Executor" }
+   { curlanguage "russian" =
+%<!utf8>      { "{\cyr\cyri\cyrs\cyrp\cyro\cyrl\cyrn.}" }
+%<utf8>      { "{исполн.}" }
+      { curlanguage "ukrainian" =
+%<!utf8>        { "{\cyr\cyrv\cyri\cyrk\cyro\cyrn\cyra\cyrv\cyre\cyrc\cyrsftsn}" }
+%<utf8>        { "{виконавець}" }
+        { "language is not defined: " language "medium" * * warning$ "Executor" }
+      if$}
+   if$}
+if$}
+
+%    \end{macrocode}
+% \DescribeFunction{bbl.medium}
+%    \begin{macrocode}
+FUNCTION {bbl.medium}
+{ type$ "online" =
+   { bbl.medium.elres }
+   { bbl.medium.text  }
+if$}
+
+%    \end{macrocode}
+%
+% \subsection{Formatting functions}
+%
+% Declare functions to format separate elements of bibliographic reference.
+%    \begin{macrocode}
 INTEGERS { nameptr namesleft numnames }
 
-%<*gost71s|gost71u|gost705s|gost705u>
 
+%    \end{macrocode}
+%
+% \DescribeFunction{format.names}
+% Function |format.names| has 2 version.
+% First is for bibliographic records rather then for bibliographic references.
+% It is used for \file{.bst} styles compiled without the |modern| option.
+% It format every name as `LastName, F. S.'.
+% Historically, this version was used first for earlier styles included into
+% GOST bundle.
+%
+% \textbf{Important note}
+%
+% Neither \file{bibtex} nor \file{bibtex8} can handle unicoded text without
+% troubles. In particular, they fail to reduce a Cyrillic name to initials.
+% Therefore we avoid using |f.| primitive when option |utf8| is in effect.
+
+%    \begin{macrocode}
+%<*!modern>
 FUNCTION {format.names}
-{ 's :=
+{
+%<!utf8>  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
+%<utf8>  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
+}
+%</!modern>
+%    \end{macrocode}
+% Second version drops comma from output so that every name is formatted
+% as `LastName F. S.'. It also substitutes 4th and following names by
+% localized term `et al'.
+%    \begin{macrocode}
+%<*modern>
+FUNCTION {format.names}
+{
+  's :=
   #1 'nameptr :=
   s num.names$ 'numnames :=
   numnames 'namesleft :=
     { namesleft #0 > }
     { s nameptr
-      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+%<!utf8>      "{vv~}{ll}{~jj}{~f.}" format.name$ 't :=
+%<utf8>      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
       nameptr #1 >
-        {
-          nameptr #4 =
+        { nameptr #4 =
           numnames #4 > and
             { "others" 't :=
               #1 'namesleft := }
@@ -609,11 +1587,11 @@ FUNCTION {format.names}
           if$
           namesleft #1 >
             { ", " * t * }
-            {
-              t "others" =
-	      t "~others" =
-	      or
-                { " " * bbl.etal * }
+            { t "others" =
+	          t "~others" =
+	          or
+%<!strict>                { " " * bbl.etal * }
+%<strict>                { " " * bbl.etal enclose.square.brackets *}
                 { ", " * t * }
               if$
             }
@@ -626,29 +1604,59 @@ FUNCTION {format.names}
     }
   while$
 }
+%</modern>
 
-%</gost71s|gost71u|gost705s|gost705u>
-%<*gost780s|gost780u>
-
-FUNCTION {format.names}
-{
-  #1 "{vv~}{ll}{~jj}{,~f.}" format.name$
+%    \end{macrocode}
+% \DescribeFunction{format.lab.names}
+% Declare function to go to optional argument of |\bibitem| in
+% the styles generated with the option |natbib|.
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {format.lab.names}
+{ 's :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  s #1 "{vv~}{ll}" format.name$
+  s num.names$ duplicate$
+  #2 >
+    %{ pop$ " et~al." * }
+    { pop$ " " bbl.etal * * }
+    { #2 <
+        'skip$
+        { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+            %{ " et~al." * }
+            { " " bbl.etal * * }
+            %{ " and " * s #2 "{vv~}{ll}" format.name$ * }
+            { " " bbl.and " " * * * s #2 "{vv~}{ll}" format.name$ * }
+          if$
+        }
+      if$
+    }
+  if$
 }
+%</natbib>
 
-%</gost780s|gost780u>
-
+%    \end{macrocode}
+% \DescribeFunction{format.names.rev}
+% Declare function to format names for authors/bookauthors list after title and etc.
+% Note that |format.names.rev| cuts list of names to at most 4 persons.
+% We do not cut names to initials in this list.
+%    \begin{macrocode}
 FUNCTION {format.names.rev}
-{ 's :=
+{
+  's :=
   #1 'nameptr :=
   s num.names$ 'numnames :=
   numnames 'namesleft :=
     { namesleft #0 > }
     { s nameptr
-      "{f.}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
+%<!utf8>      %"{f.}{~vv}{~ll}{, jj}" format.name$ 't :=
+%<!utf8>      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
+%<utf8>      "{ff}{~vv}{~ll}{, jj}" format.name$ 't :=
       nameptr #1 >
-        {
-          nameptr #4 =
+        { nameptr #4 =
           numnames #4 > and
             { "others" 't :=
               #1 'namesleft := }
@@ -656,11 +1664,11 @@ FUNCTION {format.names.rev}
           if$
           namesleft #1 >
             { ", " * t * }
-            {
-              t "others" =
-	      t "~others" =
-	      or
-                { " " * bbl.etal * }
+            { t "others" =
+	          t "~others" =
+	          or
+%<!strict>                { " " * bbl.etal * }
+%<strict>                { " " * bbl.etal enclose.square.brackets * }
                 { ", " * t * }
               if$
             }
@@ -674,6 +1682,22 @@ FUNCTION {format.names.rev}
   while$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.key}
+% Function to substitute empty field (usually, author name) with the |key| field.
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {format.key}
+{ empty$
+    { key field.or.null }
+    { "" }
+  if$
+}
+%</natbib>
+
+%    \end{macrocode}
+% \DescribeFunction{format.authors}
+%    \begin{macrocode}
 FUNCTION {format.authors}
 { author empty$
     { "" }
@@ -681,6 +1705,106 @@ FUNCTION {format.authors}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{author.key.label}
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {author.key.label}
+{ author empty$
+    { key empty$
+        { cite$ #1 #3 substring$ }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.editor.key.label}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { cite$ #1 #3 substring$ }
+            %'key          %% causes lost of year
+            { "{}" key * } %% Bug in bibtex8 ??
+          if$
+        }
+        { editor format.lab.names }
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {author.key.organization.label}
+{ author empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { author format.lab.names }
+  if$
+}
+
+FUNCTION {editor.key.organization.label}
+{ editor empty$
+    { key empty$
+        { organization empty$
+            { cite$ #1 #3 substring$ }
+            { "The " #4 organization chop.word #3 text.prefix$ }
+          if$
+        }
+        'key
+      if$
+    }
+    { editor format.lab.names }
+  if$
+}
+
+FUNCTION {calc.short.authors}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.key.label
+    { type$ "proceedings" =
+        'editor.key.organization.label
+        { type$ "manual" =
+            'author.key.organization.label
+            'author.key.label
+          if$
+        }
+      if$
+    }
+  if$
+  'short.list :=
+}
+
+FUNCTION {calc.label}
+{ calc.short.authors
+  short.list
+  "("
+  *
+  year duplicate$ empty$
+  short.list key field.or.null = or
+     { pop$ "" }
+     'skip$
+  if$
+  *
+  'label :=
+}
+
+%</natbib>
+
+%    \end{macrocode}
+% \DescribeFunction{format.bookauthors}
+% This function is used only once, in |bookauthor.before|, and the latter is
+% used only in |inbook| entry.
+%    \begin{macrocode}
 FUNCTION {format.bookauthors}
 { bookauthor empty$
     { "" }
@@ -688,6 +1812,9 @@ FUNCTION {format.bookauthors}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.authors.after}
+%    \begin{macrocode}
 FUNCTION {format.authors.after}
 { author empty$
     { "" }
@@ -695,37 +1822,76 @@ FUNCTION {format.authors.after}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.bookauthors.after}
+%    \begin{macrocode}
 FUNCTION {format.bookauthors.after}
 { bookauthor empty$
     { "" }
-    { bookauthor format.names.rev}
+    { bookauthor format.names.rev}% always cuts to 4 persons
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.editors.after}
+%    \begin{macrocode}
 FUNCTION {format.editors.after}
 { editor empty$
     { "" }
-    { bbl.edby editor format.names.rev *
-    }
+    { bbl.edby "\ " * editor format.names.rev * }
+  if$
+}
+
+%    \end{macrocode}
+% \DescribeFunction{format.chief.after}
+%    \begin{macrocode}
+FUNCTION {format.chief.after}
+{ editor empty$
+    { "" }
+    { bbl.chief "\ " * editor format.names.rev * }
+  if$
+}
+
+%    \end{macrocode}
+% \DescribeFunction{format.executor.after}
+%    \begin{macrocode}
+FUNCTION {format.executor.after}
+{ author empty$
+    { "" }
+    { bbl.executor ": " * author format.names.rev * }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.compiler.after}
+%    \begin{macrocode}
 FUNCTION {format.compiler.after}
 { compiler empty$
     { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
+    { bbl.cmplr "\ " * compiler format.names.rev * }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.title}
+% \textbf{Important note}
+% \
+% Neither \file{bibtex} nor \file{bibtex8} can handle unicoded text without
+% troubles. In particular, \file{bibtex8} fails to change case of a string if it
+% contains Cyrillic letter. Therefore we avoid using |change.case$| when
+% option |utf8| is in effect.
+%    \begin{macrocode}
 FUNCTION {format.title}
 { title empty$
     { "" }
-    { title "t" change.case$
-    }
+%<!utf8>    { title "t" change.case$ }
+%<utf8>    { title }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.date}
+%    \begin{macrocode}
 FUNCTION {format.date}
 { year empty$
     { month empty$
@@ -737,45 +1903,252 @@ FUNCTION {format.date}
     }
     { month empty$
         'year
-        { year ". " quote$ "--- " month * * * * }
+%<!modern>        { year ". " quote$ "--- " month * * * * }
+%<modern>        { year ". \BibDash " month * * }
       if$
     }
   if$
+%<natbib>  extra.label * % new in v.1.2
 }
 
-FUNCTION {output.address.publisher.date}
+%    \end{macrocode}
+% \DescribeFunction{format.address.publisher}
+% \DescribeFunction{format.address.publisher.date}
+%    \begin{macrocode}
+%<*!strict>
+FUNCTION {output.address.publisher}
 {
-      address empty$
+  address empty$
+    'skip$
+    { address output
+      publisher empty$
         'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
+        { new.column }
+      if$
+    }
+  if$
+  publisher output
+}
+%</!strict>
+%<*strict>
+%FUNCTION {output.address.publisher}
+%{
+%  address empty$
+%    {
+%      bbl.nnoaddress
+%      publisher empty$
+%        { "~: " * bbl.nopublisher *  }
+%        { }
+%      if$
+%      enclose.square.brackets
+%    }
+%    {
+%      address output
+%      new.column
+%      publisher empty$
+%        { bbl.nopublisher enclose.square.brackets }
+%        { publisher }
+%      if$
+%    }
+%  if$
+%  output
+%}
+FUNCTION {output.address.publisher}
+{
+  address empty$
+    {
+      bbl.nnoaddress
+      publisher empty$
+        { "~: " * bbl.nopublisher * enclose.square.brackets }
+        { enclose.square.brackets "~: " * publisher * }
+      if$
+    }
+    {
+      address output
+      new.column
+      publisher empty$
+        { bbl.nopublisher enclose.square.brackets }
+        { publisher }
+      if$
+    }
+  if$
+  output
+}
+
+%</strict>
+
+%    \end{macrocode}
+% \DescribeFunction{output.address.publisher.date}
+% |Otput.address.publisher.date| is used in old styles.
+% New styles use |output.address.publisher|.
+%    \begin{macrocode}
+%<*!(modern|strict)>
+FUNCTION {output.address.publisher.date}
+{
+  output.address.publisher
+  format.date output
+}
+%</!(modern|strict)>
+
+%    \end{macrocode}
+% \DescribeFunction{output.bibitem}
+%    \begin{macrocode}
+%<*!natbib>
+FUNCTION {output.bibitem}
+{ newline$
+  "\bibitem" write$
+  cite$ bracify write$
+  newline$
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
+  ""
+  before.all 'output.state :=
+}
+%</!natbib>
+%    \end{macrocode}
+% \DescribeFunction{format.full.names}
+% \DescribeFunction{author.full}
+% \DescribeFunction{editor.full}
+% \DescribeFunction{author.editor.full}
+% \DescribeFunction{make.full.names}
+% \DescribeFunction{output.bibitem}
+% In case of |natbib| option, we need |make.full.names| to compose
+% |output.bibitem|, and the latter in its turn requires some more functions.
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {format.full.names}
+{'s :=
+  language empty$
+    { "english" 'curlanguage := }
+    { language  'curlanguage := }
+  if$
+  #1 'nameptr :=
+  s num.names$ 'numnames :=
+  numnames 'namesleft :=
+    { namesleft #0 > }
+    { s nameptr
+      "{vv~}{ll}" format.name$ 't :=
+      nameptr #1 >
+        {
+          namesleft #1 >
+            { ", " * t * }
+            {
+              numnames #2 >
+              curlanguage "english" =
+              and
+                { "," * }
+                'skip$
+              if$
+              t "others" =
+	          %t "~others" =
+	          %or
+                %{ " et~al." * }
+                { " " bbl.etal * * }
+                %{ " and " * t * }
+                { " " bbl.and " " * * * t * }
+              if$
             }
           if$
         }
-        if$
-        publisher output
-        format.date output
+        't
+      if$
+      nameptr #1 + 'nameptr :=
+      namesleft #1 - 'namesleft :=
+    }
+  while$
+}
+
+FUNCTION {author.full}
+{ author empty$
+    { "" }
+    { author format.full.names }
+  if$
 }
 
+FUNCTION {editor.full}
+{ editor empty$
+    { "" }
+    { editor format.full.names }
+  if$
+}
+
+FUNCTION {author.editor.full}
+{ author empty$
+    { editor empty$
+        { "" }
+        { editor format.full.names }
+      if$
+    }
+    { author format.full.names }
+  if$
+}
+
+FUNCTION {make.full.names}
+{ type$ "book" =
+  type$ "inbook" =
+  or
+    'author.editor.full
+    { type$ "proceedings" =
+        'editor.full
+        'author.full
+      if$
+    }
+  if$
+}
+
+% =======================================
 FUNCTION {output.bibitem}
 { newline$
-  "\bibitem{" write$
+  "\bibitem[" write$
+  label write$
+  ")" make.full.names duplicate$ short.list =
+     { pop$ }
+     { * }
+   if$
+  "]{" * write$
   cite$ write$
   "}" write$
-  newline$
   language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
+    { "english" 'curlanguage := }
+    {language  'curlanguage := }
   if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
+  "\selectlanguageifdefined" curlanguage bracify * write$
+  newline$
   ""
   before.all 'output.state :=
 }
+% =======================================
+%FUNCTION {output.bibitem}
+%{ newline$
+%  "\bibitem" write$
+%%  author.key.label
+%%  year parenthesify *
+%%  "; lbl:" label * *
+%%  "; mfn:"  make.full.names * *
+%  label
+%  make.full.names *
+%  bracketise write$
+%  cite$ bracify write$
+%  newline$
+%  language empty$
+%    { "english" 'curlanguage := }
+%    {language  'curlanguage := }
+%  if$
+%  "\selectlanguageifdefined" curlanguage bracify * write$
+%  newline$
+%  ""
+%  before.all 'output.state :=
+%}
+% =======================================
+%</natbib>
 
+%    \end{macrocode}
+% \DescribeFunction{n.dashify}
+%    \begin{macrocode}
 FUNCTION {n.dashify}
 { 't :=
   ""
@@ -801,14 +2174,23 @@ FUNCTION {n.dashify}
   while$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{word.in}
+%    \begin{macrocode}
 FUNCTION {word.in}
 { bbl.iin
   " " * }
 
+%    \end{macrocode}
+% \DescribeFunction{format.btitle}
+%    \begin{macrocode}
 FUNCTION {format.btitle}
 { title
 }
 
+%    \end{macrocode}
+% \DescribeFunction{tie.or.space.connect}
+%    \begin{macrocode}
 FUNCTION {tie.or.space.connect}
 { duplicate$ text.length$ #3 <
     { "~" }
@@ -817,12 +2199,19 @@ FUNCTION {tie.or.space.connect}
   swap$ * *
 }
 
+%    \end{macrocode}
+% \DescribeFunction{tie.connect}
+% Declare function to insert unbreakable space before last word in stack.
+%    \begin{macrocode}
 FUNCTION {tie.connect}
  {"~"
   swap$ * *
  }
 
 
+%    \end{macrocode}
+% \DescribeFunction{either.or.chec}
+%    \begin{macrocode}
 FUNCTION {either.or.check}
 { empty$
     'pop$
@@ -830,6 +2219,9 @@ FUNCTION {either.or.check}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.bvolume}
+%    \begin{macrocode}
 FUNCTION {format.bvolume}
 { volume empty$
     { "" }
@@ -843,6 +2235,9 @@ FUNCTION {format.bvolume}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.number.series}
+%    \begin{macrocode}
 FUNCTION {format.number.series}
 { volume empty$
     { number empty$
@@ -865,12 +2260,18 @@ FUNCTION {format.number.series}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{is.num}
+%    \begin{macrocode}
 FUNCTION {is.num}
 { chr.to.int$
   duplicate$ "0" chr.to.int$ < not
   swap$ "9" chr.to.int$ > not and
 }
 
+%    \end{macrocode}
+% \DescribeFunction{extract.num}
+%    \begin{macrocode}
 FUNCTION {extract.num}
 { duplicate$ 't :=
   "" 's :=
@@ -890,6 +2291,9 @@ FUNCTION {extract.num}
 }
 
 %<*debug>
+%    \end{macrocode}
+% \DescribeFunction{eng.ord}
+%    \begin{macrocode}
 FUNCTION {eng.ord}
 { duplicate$ "1" swap$ *
   #-2 #1 substring$ "1" =
@@ -912,6 +2316,9 @@ FUNCTION {eng.ord}
 }
 %</debug>
 
+%    \end{macrocode}
+% \DescribeFunction{convert.edition}
+%    \begin{macrocode}
 FUNCTION {convert.edition}
 { edition
 % edition extract.num "l" change.case$ 's :=
@@ -942,12 +2349,17 @@ FUNCTION {convert.edition}
 %  t
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.edition}
+%    \begin{macrocode}
 FUNCTION {format.edition}
 { edition empty$
     { "" }
     { output.state mid.sentence =
-        { convert.edition "l" change.case$ " " * bbl.edition * }
-        { convert.edition "t" change.case$ " " * bbl.edition * }
+%<!utf8>        { convert.edition "l" change.case$ " " * bbl.edition * }
+%<!utf8>        { convert.edition "t" change.case$ " " * bbl.edition * }
+%<utf8>        { convert.edition " " * bbl.edition * }
+%<utf8>        { convert.edition " " * bbl.edition * }
       if$
     }
   if$
@@ -955,6 +2367,9 @@ FUNCTION {format.edition}
 
 INTEGERS { multiresult }
 
+%    \end{macrocode}
+% \DescribeFunction{multi.page.check}
+%    \begin{macrocode}
 FUNCTION {multi.page.check}
 { 't :=
   #0 'multiresult :=
@@ -975,6 +2390,9 @@ FUNCTION {multi.page.check}
   multiresult
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.pages}
+%    \begin{macrocode}
 FUNCTION {format.pages}
 { pages empty$
     { "" }
@@ -986,6 +2404,9 @@ FUNCTION {format.pages}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.pages.page}
+%    \begin{macrocode}
 FUNCTION {format.pages.page}
 { pages empty$
     { numpages empty$
@@ -996,6 +2417,9 @@ FUNCTION {format.pages.page}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.vol.num.pages}
+%    \begin{macrocode}
 FUNCTION {format.vol.num.pages}
 { volume field.or.null
   number empty$
@@ -1018,6 +2442,9 @@ FUNCTION {format.vol.num.pages}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.volume}
+%    \begin{macrocode}
 FUNCTION {format.volume}
 { volume empty$
     { "" }
@@ -1025,6 +2452,9 @@ FUNCTION {format.volume}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.number}
+%    \begin{macrocode}
 FUNCTION {format.number}
 { number empty$
     { "" }
@@ -1033,6 +2463,9 @@ FUNCTION {format.number}
 }
 
 %<*debug>
+%    \end{macrocode}
+% \DescribeFunction{format.chapter.pages}
+%    \begin{macrocode}
 FUNCTION {format.chapter.pages}
 { chapter empty$
     'format.pages
@@ -1050,6 +2483,9 @@ FUNCTION {format.chapter.pages}
 }
 %</debug>
 
+%    \end{macrocode}
+% \DescribeFunction{empty.misc.check}
+%    \begin{macrocode}
 FUNCTION {empty.misc.check}
 { author empty$ title empty$ howpublished empty$
   month empty$ year empty$ note empty$
@@ -1060,26 +2496,61 @@ FUNCTION {empty.misc.check}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.thesis.type}
+%    \begin{macrocode}
 FUNCTION {format.thesis.type}
 { type empty$
     'skip$
     { pop$
-      type "t" change.case$
+%<!utf8>      type "t" change.case$
+%<utf8>      type
     }
   if$
 }
 
-FUNCTION {format.tr.number}
+%    \end{macrocode}
+% \DescribeFunction{format.techrep.type.number}
+% Function to format report type and number.
+%    \begin{macrocode}
+%FUNCTION {format.techrep.type.number}
+%{ type empty$
+%    { bbl.techreport }
+%    'type
+%  if$
+%  number empty$
+%%<!utf8>    { "t" change.case$ }
+%%<utf8>    { "" }
+%    { number tie.or.space.connect }
+%  if$
+%}
+
+FUNCTION {format.techreport.type}
 { type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "t" change.case$ }
-    { number tie.or.space.connect }
+   { bbl.techreport }
+   'type
   if$
 }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{author.before}
+% Declare the function |author.before| to format list
+% of authors in heading of a bibliographic record.
+% If the number of authors is 4 or larger, some styles skip
+% the list of authors in the beginning of the bibliographic
+% record, while other styles always print that list.
+% So, we need two version of |author.before|.
+%
+% First version is used if \file{.bst} style is compiled without option
+% |long|. It skips authors if their number is greater than or equal to 4
+% or if the author field is empty. Note that GOST requires for a long list of
+% authors to be reduced. Hence this first version is preferable.
+% Note also that |format.names|  cuts list of names
+% to 4 person at most in case if |modern| option is used. and |format.authors|
+% just emphasizes |format.names|.
+%    \begin{macrocode}
+%<*!long>
 FUNCTION {author.before}
 {
   author empty$
@@ -1091,54 +2562,99 @@ FUNCTION {author.before}
     if$}
   if$
 }
-
-FUNCTION {bookauthor.before}
+%</!long>
+%    \end{macrocode}
+% Second version is used if \file{.bst} style is compiled with the option
+% |long|. It skips only if the author field is empty.
+%    \begin{macrocode}
+%<*long>
+FUNCTION {author.before}
 {
-  bookauthor empty$
+  author empty$
     'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
+    { format.authors output
+      new.sentence
+    }
   if$
 }
+%</long>
 
-%<*gost71s|gost71u|gost705s|gost705u>
+%    \end{macrocode}
+% \DescribeFunction{bookauthor.before}
+% There are also 2 version of the function |bookauthor.before|.
+% Not used anymore!
+%    \begin{macrocode}
+%%<*!long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    {bookauthor num.names$ #4 <
+%%      {format.bookauthors output
+%%       new.sentence}
+%%      'skip$
+%%    if$}
+%%  if$
+%%}
+%%</!long>
+%%<*long>
+%%FUNCTION {bookauthor.before}
+%%{
+%%  bookauthor empty$
+%%    'skip$
+%%    { format.bookauthors output
+%%      new.sentence
+%%    }
+%%  if$
+%%}
+%%</long>
 
+%    \end{macrocode}
+%
+% \DescribeFunction{author.after}
+% Functions |author.after| and |bookauthor.after| also have by 2 versions.
+% They are used to write authors list after the title followed by a slash.
+% In modern styles, compiled with option |modern|, the list of authors is
+% always cut to at most 4 persons. The cut is performed first by
+% |format.names.rev|, which is called by |format.authors.after|. For old styles,
+% |author.after| just outputs formatted string whereas for new style it
+% skips the string if the number of authors exceeds 3 (and author list is not
+% printed before the title).
+%    \begin{macrocode}
+%<*!modern>
 FUNCTION {author.after}
 {
   author empty$
     'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
+    {format.authors.after output
        new.semicolumn }
-      'skip$
-    if$}
   if$
 }
-FUNCTION {bookauthor.after}
+%</!modern>
+%<*modern>
+%<*!long>
+FUNCTION {author.after}
 {
-  bookauthor empty$
+  author empty$
     'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
+    {author num.names$ #3 >
+      {format.authors.after output
        new.semicolumn }
       'skip$
     if$}
   if$
 }
-%</gost71s|gost71u|gost705s|gost705u>
-%<*gost780s|gost780u>
+%</!long>
+%<*long>
+FUNCTION {author.after} { }
+%</long>
+%</modern>
 
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {format.authors.after output
-       new.semicolumn }
-  if$
-}
+%    \end{macrocode}
+% \DescribeFunction{bookauthor.after}
+% This function is used only in |inbook| entry. It always cuts list to 4 persons
+% since |format.bookauthors.after| does that.
+%    \begin{macrocode}
 FUNCTION {bookauthor.after}
 {
   bookauthor empty$
@@ -1147,8 +2663,10 @@ FUNCTION {bookauthor.after}
        new.semicolumn }
   if$
 }
-%</gost780s|gost780u>
 
+%    \end{macrocode}
+% \DescribeFunction{editor.organization.after}
+%    \begin{macrocode}
 FUNCTION {editor.organization.after}
 {
   compiler empty$
@@ -1171,20 +2689,26 @@ FUNCTION {editor.organization.after}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.url}
+%    \begin{macrocode}
 FUNCTION {format.url}
 { url empty$
     { "" }
     {
-%<gost780s|gost780u>      "\BibUrl{ " url * "}" *
-%<gost71s|gost71u|gost705s|gost705u>      "URL: \BibUrl{" url * "}" *
+%<!(modern|strict)>      "\BibUrl{ " url * "}" *
+%<modern|strict>      "URL: \BibUrl{" url * "}" *
       urldate empty$
         { "" }
-        { " (" bbl.urldate * urldate * ")" * }
+        { " (" bbl.urldate * ": " * urldate * ")" * }
       if$ *
     }
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.annote}
+%    \begin{macrocode}
 FUNCTION {format.annote}
 { annote empty$
     { "" }
@@ -1194,16 +2718,225 @@ FUNCTION {format.annote}
   if$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{format.isbn}
+% Do we really need to provide electronic search for ISNB?
+%    \begin{macrocode}
+FUNCTION {format.isbn}
+{
+  isbn empty$
+    { "" }
+    { "ISBN:~\href{http://isbndb.com/search-all.html?kw=" isbn *
+      "}{" * isbn * "}" *
+    }
+  if$
+}
+
+%    \end{macrocode}
+% \DescribeFunction{add.doi}
+% The Digital Object Identifier (DOI) System is for identifying content
+% objects in the digital environment. DOI names are assigned to any entity
+% for use on digital networks. They are used to provide current information,
+% including where they (or information about them) can be found on the
+% Internet. Information about a digital object may change over time,
+% including where to find it, but its DOI name will not change.
+%
+% Function |add.doi| embraces last string in stack into hyperlink
+% that links it to specified |doi| identificator at http://dx.doi.org/ web-site.
+%    \begin{macrocode}
+%<*eprint>
+FUNCTION {add.doi}
+{ duplicate$ empty$
+    'skip$
+    { doi empty$
+        'skip$
+        { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+      if$
+    }
+  if$
+}
+%</eprint>
+%    \end{macrocode}
+% If \file{.bst} style is compiled without |eprint| option, we just ignore
+% |doi| field.
+%    \begin{macrocode}
+%<*!eprint>
+FUNCTION {add.doi} { }
+%</!eprint>
+
+%    \end{macrocode}
+% \DescribeFunction{add.medium}
+% New in version 2.
+%    \begin{macrocode}
+%<*!strict>
+FUNCTION {add.medium} { }
+%</!strict>
+%<*strict>
+FUNCTION {add.medium}
+{ duplicate$ empty$
+    'skip$
+    { medium empty$
+        { " " * bbl.medium enclose.square.brackets * }
+        { " " * medium enclose.square.brackets * }
+%%        { bbl.medium enclose.square.brackets * }
+%%        { medium enclose.square.brackets * }
+      if$
+    }
+  if$
+}
+%</strict>
+
+%    \end{macrocode}
+%
+% \subsection{Electronic Publishing Information}
+%
+% The biblatex package provides three fields for electronic publishing
+% information: |eprint|, |eprinttype|, and |eprintclass|. The |eprint| field
+% is a verbatim field similar to |doi| which holds the identifier of the item.
+% The |eprinttype| field holds the resource name, i. e., the name of the
+% site or electronic archive. The optional |eprintclass| field is intended
+% for additional information specific to the resource indicated by the
+% |eprinttype| field. This could be a section, a path, classification
+% information, etc. If the |eprinttype| field is available, the standard styles
+% will use it as a literal label. In the following example, they would print
+% ``Resource: identifier'' rather than the generic ``eprint: identifier'':
+% \begin{verbatim}
+% eprint = {identifier},
+% eprinttype = {Resource},
+% \end{verbatim}
+%
+% \DescribeFunction{format.eprint}
+% The electronic identifier of an online publication.
+% This is roughly comparable to a |doi| but specific to a certain archive,
+% repository, service, or system.
+% Also see eprinttype and eprintclass.
+%
+% This function should use url. TO BE DONE YET.
+%    \begin{macrocode}
+%<*eprint>
+%FUNCTION {format.eprint}
+%{ eprint empty$
+%   { "" }
+%   { eprintclass empty$
+%      { " \href{http://arxiv.org/abs/" eprint * "}" * "{" * eprint * "}" * }
+%      { eprinttype empty$
+%         { " \href{http://arxiv.org/abs/" eprint * "}" *
+%      	   "{" * eprintclass * "/" * eprint * "}" *
+%         }
+%         { " \href{http://arxiv.org/abs/" eprint * "}" *
+%      	   "{" * eprinttype * ":" * eprintclass * "/" * eprint * "}" *
+%         }
+%      if$}
+%   if$}
+%if$}
+
+%FUNCTION {format.eprint}
+%{ eprint empty$
+%   { "" }
+%   { eprinttype empty$
+%       { "" }
+%       { eprinttype "~: " *}
+%     if$
+%     eprintclass empty$
+%       { }
+%       { eprintclass * "/" *}
+%    if$
+%    eprint *
+%   }
+%  if$
+%  url empty$
+%    { }
+%    { "\href{" url * "}{" * swap$ * "}" *}
+%  if$
+%}
+
+FUNCTION {format.eprint}
+{ eprint empty$
+   { "" }
+   { eprinttype empty$
+       { "" }
+       { eprinttype "~: " *}
+     if$
+     eprintclass empty$
+       { }
+       { eprintclass * "/" *}
+     if$
+     url empty$
+      { eprint * }
+      { "\href{" * url * "}{" * eprint * "}" *}
+    if$
+   }
+  if$
+}
+
+FUNCTION {output.eprint.url}
+{
+  eprint empty$
+    { format.url output }
+    { format.eprint output }
+  if$
+}
+
+%</eprint>
+
+%<*!eprint>
+FUNCTION {output.eprint.url}
+{
+    format.url output
+}
+%</!eprint>
+
+%    \end{macrocode}
+%
+% \subsection{Entry types}
+%
+% Text below in this section is borrowed from biblatex manual. Not every
+% field listed below is actually supported by GOST styles. So description
+% below should be considered as a goal or a feature request.
+%
+% The lists below indicate the fields supported by each entry type.
+% Note that the mapping of fields to an entry type is ultimately at the
+% discretion of the bibliography style. The lists below therefore serve
+% two purposes. They indicate the fields supported by the standard styles
+% which ship with this package and they also serve as a model for custom
+% styles. Note that the required fields are not strictly required
+% in all cases. The fields marked as optional
+% are optional in a technical sense. Bibliographical formatting rules
+% usually require more than just the required fields. The standard
+% styles will generally not perform any formal validity checks, but
+% custom styles may do so. Generic fields like abstract and annotation
+% or label and shorthand are not included in the lists below because they
+% are independent of the entry type.
+%
+% \subsubsection{Regular Types}
+%
+% \DescribeFunction{article}
+%  An article in a journal, magazine, newspaper, or other periodical which forms a
+%  self-contained unit with its own title. The title of the periodical is given in the
+%  journaltitle field. If the issue has its own title in addition to the main title of
+%  the periodical, it goes in the issuetitle field. Note that editor and related fields
+%  refer to the journal while translator and related fields refer to the article.
+%
+%  Required fields: author, title, journaltitle, year/date.
+%
+%  Optional fields: translator, annotator, commentator, subtitle, titleaddon,
+%  editor, editora, editorb, editorc, journalsubtitle, issuetitle,
+%  issuesubtitle, language, origlanguage, series, volume, number, eid, issue,
+%  month, pages, version, note, issn, addendum, pubstate, doi, eprint,
+%  eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {article}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.title "title" output.check
+%<natbib>  author format.key output
+  format.title add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
-  journal emphasize "journal" output.check
+  journal emphasize add.doi "journal" output.check % new in v.2
   new.block
-  format.date output
+  format.date "year" output.check
   new.block
   format.volume output
   format.number output
@@ -1212,15 +2945,33 @@ FUNCTION {article}
   new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
+%    \end{macrocode}
+% \DescribeFunction{book}
+% A single-volume book with one or more authors where the authors share credit for
+% the work as a whole. In biblatex, this entry type also covers the function
+% of the |@inbook| type of traditional BibTeX.
+%
+% Required fields: author, title, year/date.
+%
+% Optional fields: editor, editora, editorb, editorc, translator, annotator,
+% commentator, introduction, foreword, afterword, subtitle, titleaddon,
+% maintitle, mainsubtitle, maintitleaddon, language, origlanguage, volume,
+% part, edition, volumes, series, number, note, publisher, location, isbn,
+% chapter, pages, pagetotal, addendum, pubstate, doi, eprint, eprintclass,
+% eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {book}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.btitle "title" output.check
+%<natbib>  author format.key output
+  format.btitle add.doi add.medium "title" output.check
   new.slash
   author.after
   editor.organization.after
@@ -1229,46 +2980,82 @@ FUNCTION {book}
   new.block
   format.edition output
   new.block
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   new.block
   format.pages.page output
   new.block
+%<eprint>  format.isbn output
+%<eprint>  new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
+%    \end{macrocode}
+% \DescribeFunction{booklet}
+% A book-like work without a formal publisher or sponsoring institution. Use the
+% field howpublished to supply publishing information in free format, if applicable.
+% The field type may be useful as well.
+%
+% Required fields: author/editor, title, year/date.
+%
+% Optional fields: subtitle, titleaddon, language, howpublished, type, note,
+% location, chapter, pages, pagetotal, addendum, pubstate, doi, eprint,
+% eprintclass, eprinttype, url, urldate.
+%
+%    \begin{macrocode}
 FUNCTION {booklet}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.title "title" output.check
+%<natbib>  author format.key output
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   editor.organization.after
   new.block
   howpublished output
   address output
-  format.date output
+  format.date "year" output.check
   new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
+%    \end{macrocode}
+% \DescribeFunction{inbook}
+% A part of a book which forms a self-contained unit with its own title.
+% Note that the profile of this entry type is different from standard BibTeX.
+%
+% Required fields: author, title, booktitle, year/date.
+%
+% Optional fields: bookauthor, editor, editora, editorb, editorc, translator,
+% annotator, commentator, introduction, foreword, afterword, subtitle,
+% titleaddon, maintitle, mainsubtitle, maintitleaddon, booksubtitle,
+% booktitleaddon, language, origlanguage, volume, part, edition, volumes,
+% series, number, note, publisher, location, isbn, chapter, pages, addendum,
+% pubstate, doi, eprint, eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {inbook}
-{ output.bibitem
+{
+  output.bibitem
   author.before
-  format.btitle "title" output.check
+%<natbib>  author format.key output
+  format.btitle add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
-  bookauthor.before
+%  bookauthor.before
   booktitle "booktitle" output.check
   new.slash
   bookauthor.after
@@ -1278,24 +3065,45 @@ FUNCTION {inbook}
   new.block
   format.number.series output
   new.sentence
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   new.block
   format.pages.page output
   new.block
+%<eprint>  format.isbn output
+%<eprint>  new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
+%    \end{macrocode}
+% \DescribeFunction{incollection}
+% A contribution to a collection which forms a self-contained unit with a distinct
+% author and title. The author refers to the title, the editor to the booktitle,
+% i. e., the title of the collection.
+%
+% Required fields: author, editor, title, booktitle, year/date.
+%
+% Optional fields: editora, editorb, editorc, translator, annotator,
+% commentator, introduction, foreword, afterword, subtitle, titleaddon,
+% maintitle, mainsubtitle, maintitleaddon, booksubtitle, booktitleaddon,
+% language, origlanguage, volume, part, edition, volumes, series, number,
+% note, publisher, location, isbn, chapter, pages, addendum, pubstate, doi,
+% eprint, eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {incollection}
-{ output.bibitem
+{
+  output.bibitem
   author.before
+%<natbib>  author format.key output
   new.sentence
-  format.title "title" output.check
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
@@ -1303,7 +3111,8 @@ FUNCTION {incollection}
   new.slash
   editor.organization.after
   new.block
-  output.address.publisher.date
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.bvolume output
   format.number.series output
@@ -1312,16 +3121,77 @@ FUNCTION {incollection}
   new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%    \end{macrocode}
+%
+% \DescribeFunction{proceedings}
+% A single-volume conference proceedings. This type is very similar to @collection.
+% It supports an optional organization field which holds the sponsoring institution.
+% The editor is omissible.
+%
+% Required fields: editor, title, year/date.
+%
+% Optional fields: subtitle, titleaddon, maintitle, mainsubtitle,
+% maintitleaddon, eventtitle, eventdate, venue, language, volume, part,
+% volumes, series, number, note, organization, publisher, location, month,
+% isbn, chapter, pages, pagetotal, addendum, pubstate, doi, eprint,
+% eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
+FUNCTION {proceedings}
+{
+  output.bibitem
+%<natbib>  editor format.key output
+  format.btitle add.doi add.medium "title" output.check
+  new.slash
+  editor.organization.after
+  new.block
+  format.bvolume output
+  format.number.series output
+%  address empty$
+%    { publisher output
+%      format.date "year" output.check
+%    }
+%    { address output.nonnull
+%      format.date "year" output.check
+%      new.sentence
+%      publisher output
+%    }
+%  if$
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  note output
+  new.sentence
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
+%    \end{macrocode}
+% \DescribeFunction{inproceedings}
+% An article in a conference proceedings. This type is similar to @incollection. It
+% supports an optional organization field.
+%
+% Required fields: author, editor, title, booktitle, year/date.
+%
+% Optional fields: subtitle, titleaddon, maintitle, mainsubtitle,
+% maintitleaddon, booksubtitle, booktitleaddon, eventtitle, eventdate,
+% venue, language, volume, part, volumes, series, number, note, organization,
+% publisher, location, month, isbn, chapter, pages, addendum, pubstate, doi,
+% eprint, eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {inproceedings}
 { output.bibitem
   author.before
+%<natbib>  author format.key output
   new.sentence
-  format.title "title" output.check
+  format.title add.doi add.medium "title" output.check
   new.slash
   author.after
   new.dblslash
@@ -1332,28 +3202,41 @@ FUNCTION {inproceedings}
   format.bvolume output
   format.number.series output
   new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
+%  address empty$
+%    { publisher output
+%      format.date "year" output.check
+%    }
+%    { address output.nonnull
+%      new.column
+%      publisher output
+%      format.date "year" output.check
+%    }
+%  if$
+  output.address.publisher
+  format.date "year" output.check
   new.block
   format.pages.page output
   new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {conference} { inproceedings }
-
+%    \end{macrocode}
+% \DescribeFunction{manual}
+% Technical or other documentation, not necessarily in printed form. The author or
+% editor is omissible.
+%
+% Required fields: author/editor, title, year/date.
+%
+% Optional fields: subtitle, titleaddon, language, edition, type, series,
+% number, version, note, organization, publisher, location, isbn, chapter,
+% pages, pagetotal, addendum, pubstate, doi, eprint, eprintclass,
+% eprinttype, url, urldate.
+%    \begin{macrocode}
 FUNCTION {manual}
 { output.bibitem
   author empty$
@@ -1366,8 +3249,9 @@ FUNCTION {manual}
     }
     { format.authors output.nonnull }
   if$
+%<natbib>  author format.key output
   new.block
-  format.btitle "title" output.check
+  format.btitle add.doi add.medium "title" output.check
   author empty$
     { organization empty$
     {
@@ -1384,50 +3268,278 @@ FUNCTION {manual}
     }
   if$
   format.edition output
-  format.date output
+  format.date "year" output.check
   new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {mastersthesis}
+%    \end{macrocode}
+% \DescribeFunction{misc}
+% A fallback type for entries which do not fit into any other category. Use the field
+% howpublished to supply publishing information in free format, if applicable. The
+% field type may be useful as well. author, editor, and year are omissible.
+%
+% Required fields: author/editor, title, year/date.
+%    \begin{macrocode}
+FUNCTION {misc}
 { output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
+  format.authors output
+%<natbib>  author format.key output
+  title howpublished new.sentence.checkb
+  format.title add.medium output
+  howpublished new.block.checka
+  howpublished output
   new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
   format.date "year" output.check
   new.block
   note output
+  new.sentence
+%  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+
+%    \end{macrocode}
+% \DescribeFunction{unpublished}
+% A work with an author and a title which has not been formally published, such
+% as a manuscript or the script of a talk. Use the fields howpublished and note to
+% supply additional information in free format, if applicable.
+%
+% Required fields: author, title, year/date.
+%
+% Optional fields: subtitle, titleaddon, language, howpublished, note,
+% location, isbn, date, month, year, addendum, pubstate, url, urldate
+%    \begin{macrocode}
+FUNCTION {unpublished}
+{ output.bibitem
+  author.before
+%<natbib>  author format.key output
+  format.btitle "title" output.check
+  new.slash
+  author.after
+  editor.organization.after
   new.block
-  format.url output
+  format.date "year" output.check
+  new.block
+  note "note" output.check
+  new.sentence
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
 
-FUNCTION {misc}
+%    \end{macrocode}
+% \DescribeFunction{online}
+% An online resource. Author, editor, and year are omissible.
+% This entry type is intended for sources such as web sites which are intrinsically
+% online resources. Note that all entry types support the url field. For example,
+% when adding an article from an online journal, it may be preferable to use the
+% |@article| type and its url field.
+%
+% Required fields: author/editor, title, year/date, url.
+%
+% Optional fields: subtitle, titleaddon, language, version, note,
+% organization, date, month, year, addendum, pubstate, urldate.
+%    \begin{macrocode}
+FUNCTION {online}
 { output.bibitem
   format.authors output
+%<natbib>  author format.key output
   title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
+  format.title add.doi add.medium "title" output.check
+%  howpublished new.block.checka
+  howpublished new.dblslash.checka
+  howpublished enclose.square.brackets output
+  editor.organization.after
+  new.sentence
   new.block
+  output.address.publisher
   format.date output
   new.block
+%  format.url output
+  output.eprint.url
+  new.sentence
+  note output
+  format.annote output
+  fin.entry
+}
+
+%    \end{macrocode}
+%
+% \DescribeFunction{internet}
+% \DescribeFunction{www}
+% \DescribeFunction{webpage}
+% \DescribeFunction{ielectronic}
+% New in version 2012.02.15.
+%    \begin{macrocode}
+FUNCTION {internet}   {online}
+FUNCTION {www}        {online}
+FUNCTION {webpage}    {online}
+FUNCTION {electronic} {online}
+%    \end{macrocode}
+%
+% \DescribeFunction{thesis}
+% New in version 2012.02.02.
+%
+% A thesis written for an educational institution to satisfy the requirements for a
+% degree. Use the type field to specify the type of thesis.
+%
+% Required fields: author, title, type, institution, year/date.
+%
+% Optional fields: subtitle, titleaddon, language, note, location, month, isbn,
+% chapter, pages, pagetotal, addendum, pubstate, doi, eprint, eprintclass,
+% eprinttype, url, urldate
+%
+%    \begin{macrocode}
+%<*!(modern|strict)>
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
+  format.btitle "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.slash
+  school "school" output.check
+  new.block
+  output.address.publisher.date
+  new.block
+  format.pages.page output
   note output
   new.sentence
   format.url output
   format.annote output
   fin.entry
 }
+%</!(modern|strict)>
+%<*modern|strict>
+FUNCTION {thesis}
+{ output.bibitem
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+%  bbl.phdthesis format.thesis.type output.nonnull
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+%  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+%</modern|strict>
+
+% \DescribeFunction{report}
+% New in version 2012.02.02.
+%
+% A technical report, research report, or white paper published by a university or
+% some other institution. Use the type field to specify the type of report. The sponsoring
+% institution goes in the institution field.
+%
+% Required fields: author, title, type, institution, year/date.
+%
+% Optional fields: subtitle, titleaddon, language, number, version, note,
+% location, month, isrn, chapter, pages, pagetotal, addendum, pubstate, doi,
+% eprint, eprintclass, eprinttype, url, urldate.
+%    \begin{macrocode}
+%FUNCTION {report}
+%{
+%  output.bibitem
+%  author.before
+%  new.sentence
+%  format.title add.doi add.medium "title" output.check
+%  new.column
+%%  format.techrep.type.number output.nonnull
+%  type "type" output.check
+%  new.slash
+%  author.after
+%  editor.organization.after
+%  new.block
+%  address output
+%  new.column
+%  institution "institution" output.check
+%  format.date "year" output.check
+%  new.block
+%  note output
+%  new.block                % v.2
+%  format.pages.page output % v.2
+%  new.sentence
+%%  format.url output
+%  output.eprint.url
+%  format.annote output
+%  fin.entry
+%}
+FUNCTION {report}
+{
+  output.bibitem
+%  author.before
+%  new.sentence
+  format.title add.doi add.medium "title" output.check
+%<natbib>  title format.key output
+  new.column
+%  format.techrep.type.number output.nonnull
+%  type "type" output.check
+%  format.report.type.number "type" output.check
+  type "type" output.check
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
+  note output
+  format.annote output
+  fin.entry
+}
 
+%    \end{macrocode}
+%
+% \subsubsection{Type Aliases}
+%
+% The entry types listed in this section are provided for backwards compatibility
+% with traditional BibTeX styles. These aliases are resolved by BibTeX as the data is
+% exported. Bibliography styles will see the entry type the alias points to, not the
+% alias name. All unknown entry types are generally exported as @misc.
+%
+% \DescribeFunction{phdthesis}
+% Similar to @thesis except that the type field is optional and defaults to the localized
+% term `PhD thesis'. You may still use the type field to override that.
+%    \begin{macrocode}
+%<*!(modern|strict)>
 FUNCTION {phdthesis}
 { output.bibitem
   format.authors "author" output.check
@@ -1447,175 +3559,424 @@ FUNCTION {phdthesis}
   format.annote output
   fin.entry
 }
+%</!(modern|strict)>
+%<*modern|strict>
+FUNCTION {phdthesis}
+{ output.bibitem
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.phdthesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
+  new.block
+  output.address.publisher
+  format.date "year" output.check
+  new.block
+  format.pages.page output
+  new.block
+  note output
+  new.sentence
+%  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+%</modern|strict>
 
-FUNCTION {proceedings}
+%    \end{macrocode}
+% \DescribeFunction{mastersthesis}
+% Similar to |@thesis| except that the type field is optional and defaults to the localized
+% term `Master's thesis'. You may still use the type field to override that.
+%    \begin{macrocode}
+%<*!(modern|strict)>
+FUNCTION {masterthesis}
 { output.bibitem
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
   format.btitle "title" output.check
+  new.column
+  bbl.mthesis format.thesis.type output.nonnull
   new.slash
-  editor.organization.after
+  school "school" output.check
   new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
+  output.address.publisher.date
   new.block
+  format.pages.page output
   note output
   new.sentence
   format.url output
   format.annote output
   fin.entry
 }
-
-FUNCTION {techreport}
+%</!(modern|strict)>
+%<*modern|strict>
+FUNCTION {masterthesis}
 { output.bibitem
-  author.before
+  format.authors "author" output.check
+%<natbib>  author format.key output
   new.sentence
-  format.title "title" output.check
+  format.btitle add.doi add.medium "title" output.check
   new.column
-  format.tr.number output.nonnull
+  bbl.mthesis format.thesis.type output.nonnull
+  new.column
+  number output
   new.slash
-  author.after
-  editor.organization.after
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
   new.block
-  address output
-  new.column
-  institution "institution" output.check
+  output.address.publisher
   format.date "year" output.check
   new.block
+  format.pages.page output
+  new.block
   note output
   new.sentence
-  format.url output
+%  format.url output
+  output.eprint.url
   format.annote output
   fin.entry
 }
+%</modern|strict>
 
-FUNCTION {unpublished}
+%    \end{macrocode}
+% \DescribeFunction{dscithesis}
+% Similar to |@thesis| except that the type field is optional and defaults to the localized
+% term `Doctor's of sciences thesis'. You may still use the type field to override that.
+%    \begin{macrocode}
+%<*!(modern|strict)>
+FUNCTION {dscithesis}
 { output.bibitem
-  author.before
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
   format.btitle "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
   new.slash
-  author.after
-  editor.organization.after
+  school "school" output.check
   new.block
-  note "note" output.check
+  output.address.publisher.date
+  new.block
+  format.pages.page output
+  note output
   new.sentence
   format.url output
   format.annote output
   fin.entry
 }
-
-FUNCTION {online}
+%</!(modern|strict)>
+%<*modern|strict>
+FUNCTION {dscithesis}
 { output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
+  format.authors "author" output.check
+%<natbib>  author format.key output
+  new.sentence
+  format.btitle add.doi add.medium "title" output.check
+  new.column
+  bbl.dscithesis format.thesis.type output.nonnull
+  new.column
+  number output
+  new.slash
+  format.authors.after output
+  new.semicolumn
+  school "school" output.check
   new.block
-  format.date output
+  output.address.publisher
+  format.date "year" output.check
   new.block
-  format.url output
+  format.pages.page output
+  new.block
+  note output
   new.sentence
+%  format.url output
+  output.eprint.url
+  format.annote output
+  fin.entry
+}
+%</modern|strict>
+
+%    \end{macrocode}
+% \DescribeFunction{conference}
+%    \begin{macrocode}
+FUNCTION {conference} { inproceedings }
+
+%    \end{macrocode}
+%
+% \DescribeFunction{techreport}
+% TechReport is similar to |@report| except that the |type| field is optional
+% and defaults to the localized term `technical report'.
+% You may still use the type field to override that.
+%    \begin{macrocode}
+%FUNCTION {techreport}
+%{
+%  output.bibitem
+%  author.before
+%  new.sentence
+%  format.title add.doi add.medium "title" output.check
+%  new.column
+%  format.techrep.type.number output.nonnull
+%  new.slash
+%  author.after
+%  editor.organization.after
+%  new.block
+%  address output
+%  new.column
+%  institution "institution" output.check
+%  format.date "year" output.check
+%  new.block
+%  note output
+%  new.block                % v.2
+%  format.pages.page output % v.2
+%  new.sentence
+%%  format.url output
+%  output.eprint.url
+%  format.annote output
+%  fin.entry
+%}
+
+FUNCTION {techreport}
+{
+  output.bibitem
+%  author.before
+%  new.sentence
+  format.title add.doi add.medium "title" output.check
+%<natbib>  title format.key output
+  new.column
+%  format.techrep.type.number output.nonnull
+%  type "type" output.check
+%  format.report.type.number "type" output.check
+%  type output
+  format.techreport.type output
+  new.column
+  number output
+  new.slash
+  institution "institution" output.check
+  new.semicolumn
+  format.chief.after output % from editor field
+  new.semicolumn
+  format.executor.after output % from author field
+  new.block
+  address output
+  new.column
+  organization output
+  format.date "year" output.check
+  new.block                % v.2
+  format.pages.page output % v.2
+  new.sentence % или new.block ?
+  output.eprint.url
+  new.block
   note output
   format.annote output
   fin.entry
 }
 
+
+%    \end{macrocode}
+% \DescribeFunction{default.type}
+%    \begin{macrocode}
 FUNCTION {default.type} { misc }
 
+%    \end{macrocode}
+%
+% \subsection{Month Abbreviations}
+%
+%    \begin{macrocode}
 MACRO {jan} {"\bbljan{}"}
-
 MACRO {feb} {"\bblfeb{}"}
-
 MACRO {mar} {"\bblmar{}"}
-
 MACRO {apr} {"\bblapr{}"}
-
 MACRO {may} {"\bblmay{}"}
-
 MACRO {jun} {"\bbljun{}"}
-
 MACRO {jul} {"\bbljul{}"}
-
 MACRO {aug} {"\bblaug{}"}
-
 MACRO {sep} {"\bblsep{}"}
-
 MACRO {oct} {"\bbloct{}"}
-
 MACRO {nov} {"\bblnov{}"}
-
 MACRO {dec} {"\bbldec{}"}
 
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
+%    \end{macrocode}
+%
+% \subsection{Journal Abbreviations}
+%
+%    \begin{macrocode}
 
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
+%    \end{macrocode}
+% \subsection{Journal abbreviations}
+% \subsubsection{Physics and astronomy}
+% Borrowed from \file{physjour.mbs} of package \pkg{custom-bib}.
+%    \begin{macrocode}
+MACRO {aa}{"Astron. \& Astrophys."}
+MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."}
+MACRO {aj} {"Astron. J."}
+MACRO {aph} {"Acta Phys."}
+MACRO {advp} {"Adv. Phys."}
+MACRO {ajp} {"Amer. J. Phys."}
+MACRO {ajm} {"Amer. J. Math."}
+MACRO {amsci} {"Amer. Sci."}
+MACRO {anofd} {"Ann. Fluid Dyn."}
+MACRO {am} {"Ann. Math."}
+MACRO {ap} {"Ann. Phys. (NY)"}
+MACRO {adp} {"Ann. Phys. (Leipzig)"}
+MACRO {ao} {"Appl. Opt."}
+MACRO {apl} {"Appl. Phys. Lett."}
+MACRO {app} {"Astroparticle Phys."}
+MACRO {apj} {"Astrophys. J."}
+MACRO {apjsup} {"Astrophys. J. Suppl."}
+MACRO {apss} {"Astrophys. Space Sci."}
+MACRO {araa} {"Ann. Rev. Astron. Astrophys."}
+MACRO {baas} {"Bull. Amer. Astron. Soc."}
+MACRO {baps} {"Bull. Amer. Phys. Soc."}
+MACRO {cmp} {"Comm. Math. Phys."}
+MACRO {cpam} {"Commun. Pure Appl. Math."}
+MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"}
+MACRO {cpc} {"Comp. Phys. Comm."}
+MACRO {cqg} {"Class. Quant. Grav."}
+MACRO {cra} {"C. R. Acad. Sci. A"}
+MACRO {fed} {"Fusion Eng. \& Design"}
+MACRO {ft} {"Fusion Tech."}
+MACRO {grg} {"Gen. Relativ. Gravit."}
+MACRO {ieeens} {"IEEE Trans. Nucl. Sci."}
+MACRO {ieeeps} {"IEEE Trans. Plasma Sci."}
+MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"}
+MACRO {ip} {"Infrared Phys."}
+MACRO {irp} {"Infrared Phys."}
+MACRO {jap} {"J. Appl. Phys."}
+MACRO {jasa} {"J. Acoust. Soc. America"}
+MACRO {jcp} {"J. Comp. Phys."}
+MACRO {jchp} {"J. Chem. Phys."}
+MACRO {jetp} {"Sov. Phys.--JETP"}
+MACRO {jfe} {"J. Fusion Energy"}
+MACRO {jfm} {"J. Fluid Mech."}
+MACRO {jmp} {"J. Math. Phys."}
+MACRO {jne} {"J. Nucl. Energy"}
+MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."}
+MACRO {jnm} {"J. Nucl. Mat."}
+MACRO {jpc} {"J. Phys. Chem."}
+MACRO {jpp} {"J. Plasma Phys."}
+MACRO {jpsj} {"J. Phys. Soc. Japan"}
+MACRO {jsi} {"J. Sci. Instrum."}
+MACRO {jvst} {"J. Vac. Sci. \& Tech."}
+MACRO {nat} {"Nature"}
+MACRO {nature} {"Nature"}
+MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"}
+MACRO {nf} {"Nucl. Fusion"}
+MACRO {nim} {"Nucl. Inst. \& Meth."}
+MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."}
+MACRO {np} {"Nucl. Phys."}
+MACRO {npb} {"Nucl. Phys. B"}
+MACRO {nt/f} {"Nucl. Tech./Fusion"}
+MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"}
+MACRO {inc} {"Nuovo Cimento"}
+MACRO {nc} {"Nuovo Cimento"}
+MACRO {pf} {"Phys. Fluids"}
+MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."}
+MACRO {pfb} {"Phys. Fluids B: Plasma Phys."}
+MACRO {pl} {"Phys. Lett."}
+MACRO {pla} {"Phys. Lett. A"}
+MACRO {plb} {"Phys. Lett. B"}
+MACRO {prep} {"Phys. Rep."}
+MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"}
+MACRO {pp} {"Phys. Plasmas"}
+MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"}
+MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"}
+MACRO {prl} {"Phys. Rev. Lett."}
+MACRO {pr} {"Phys. Rev."}
+MACRO {physrev} {"Phys. Rev."}
+MACRO {pra} {"Phys. Rev. A"}
+MACRO {prb} {"Phys. Rev. B"}
+MACRO {prc} {"Phys. Rev. C"}
+MACRO {prd} {"Phys. Rev. D"}
+MACRO {pre} {"Phys. Rev. E"}
+MACRO {ps} {"Phys. Scripta"}
+MACRO {procrsl} {"Proc. Roy. Soc. London"}
+MACRO {rmp} {"Rev. Mod. Phys."}
+MACRO {rsi} {"Rev. Sci. Inst."}
+MACRO {science} {"Science"}
+MACRO {sciam} {"Sci. Am."}
+MACRO {sam} {"Stud. Appl. Math."}
+MACRO {sjpp} {"Sov. J. Plasma Phys."}
+MACRO {spd} {"Sov. Phys.--Doklady"}
+MACRO {sptp} {"Sov. Phys.--Tech. Phys."}
+MACRO {spu} {"Sov. Phys.--Uspekhi"}
+MACRO {st} {"Sky and Telesc."}
 
-MACRO {tcs} {"Theoretical Computer Science"}
+%    \end{macrocode}
+%
+% \subsubsection{Optics}
+%
+% Borrowed from \file{photjour.mbs}.
+%    \begin{macrocode}
+MACRO {appopt} {"Appl. Opt."}
+MACRO {bell}   {"Bell Syst. Tech. J."}
+MACRO {ell}    {"Electron. Lett."}
+MACRO {jasp}   {"J. Appl. Spectr."}
+MACRO {jqe}    {"IEEE J. Quantum Electron."}
+MACRO {jlwt}   {"J. Lightwave Technol."}
+MACRO {jmo}    {"J. Mod. Opt."}
+MACRO {josa}   {"J. Opt. Soc. America"}
+MACRO {josaa}  {"J. Opt. Soc. Amer.~A"}
+MACRO {josab}  {"J. Opt. Soc. Amer.~B"}
+MACRO {jdp}    {"J. Phys. (Paris)"}
+MACRO {oc}     {"Opt. Commun."}
+MACRO {ol}     {"Opt. Lett."}
+MACRO {os}     {"Opt. Spectrosc."}
+MACRO {phtl}   {"IEEE Photon. Technol. Lett."}
+MACRO {pspie}  {"Proc. Soc. Photo-Opt. Instrum. Eng."}
+MACRO {sjot}   {"Sov. J. Opt. Technol."}
+MACRO {sjqe}   {"Sov. J. Quantum Electron."}
+MACRO {sleb}   {"Sov. Phys.--Leb. Inst. Rep."}
+MACRO {stph}   {"Sov. Phys.--Techn. Phys."}
+MACRO {stphl}  {"Sov. Techn. Phys. Lett."}
+MACRO {vr}     {"Vision Res."}
+MACRO {zph}    {"Z. f. Physik"}
+MACRO {zphb}   {"Z. f. Physik~B"}
+MACRO {zphd}   {"Z. f. Physik~D"}
+%    \end{macrocode}
+%
+% \subsubsection{Physics of condensed Matter}
+%
+%    \begin{macrocode}
+MACRO {sse} {"Solid-State Electron."}
+MACRO {pss} {"Phys. Sol. State"}
+MACRO {sst} {"Semicond. Sci. Tech."}
+MACRO {nl}  {"Nano Lett."}
 
 READ
 
-%<*gost71s|gost780s|gost705s>
+%    \end{macrocode}
+%
+% \subsection{Sorting}
+%
+% Next chunk of code governs sorting reference list by authors' names and
+% titles.
+%    \begin{macrocode}
+%<*sort|natbib>
 
+%    \end{macrocode}
+% \DescribeFunction{sortify}
+%    \begin{macrocode}
 FUNCTION {sortify}
 { purify$
-  "l" change.case$
-}
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
+%<!utf8>  "l" change.case$
 }
+%</sort|natbib>
 
+%    \end{macrocode}
+% \DescribeFunction{sort.format.names}
+%    \begin{macrocode}
+%<*sort>
+%% =====================================
+%% This version from old Gost package
+%%<*!natbib>
 FUNCTION {sort.format.names}
 { 's :=
   #1 'nameptr :=
@@ -1632,6 +3993,7 @@ FUNCTION {sort.format.names}
       format.name$ 't :=
       nameptr numnames = t "others" = and
         { "et al" * }
+        %{ bbl.etal * }
         { t sortify * }
       if$
       nameptr #1 + 'nameptr :=
@@ -1639,18 +4001,63 @@ FUNCTION {sort.format.names}
     }
   while$
 }
+%%</!natbib>
+%% This version from plainnat.bst
+%% It ignores second and subsequent authors but include year.
+%%<*natbib>
+%FUNCTION {sort.format.names}
+%{ 's :=
+%  #1 'nameptr :=
+%  ""
+%  s num.names$ 'numnames :=
+%  numnames 'namesleft :=
+%    { namesleft #0 > }
+%    {
+%      s nameptr "{vv{ } }{ll{ }}{  ff{ }}{  jj{ }}" format.name$ 't :=
+%      nameptr #1 >
+%        {
+%          "   "  *
+%          namesleft #1 = t "others" = and
+%            { "zzzzz" * }
+%            { numnames #2 > nameptr #2 = and
+%                { "zz" * year field.or.null * "   " * }
+%                'skip$
+%              if$
+%              t sortify *
+%            }
+%          if$
+%        }
+%        { t sortify * }
+%      if$
+%      nameptr #1 + 'nameptr :=
+%      namesleft #1 - 'namesleft :=
+%    }
+%  while$
+%}
+%%</natbib>
+%% =====================================
 
+%    \end{macrocode}
+% \DescribeFunction{sort.format.title}
+%    \begin{macrocode}
 FUNCTION {sort.format.title}
 { 't :=
   "A " #2
     "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
+      "The " #4 t chop.word % Removes "The " if any
+    chop.word               % Removes "An " if any
+  chop.word                 % Removes "A " if any
   sortify
   #1 global.max$ substring$
 }
 
+%    \end{macrocode}
+% \DescribeFunction{author.sort}
+%    \begin{macrocode}
+%% =====================================
+%% This version from old gost package.
+%%
+%<*!natbib>
 FUNCTION {author.sort}
 { author empty$
     { key empty$
@@ -1668,7 +4075,28 @@ FUNCTION {author.sort}
     }
   if$
 }
+%</!natbib>
+%% This version from plainnat.bst
+%<*natbib>
+FUNCTION {author.sort}
+{ author empty$
+    { key empty$
+        { "to sort, need author or key in " cite$ * warning$
+          ""
+        }
+        { key sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
+%</natbib>
+%% =====================================
 
+%    \end{macrocode}
+% \DescribeFunction{author.title.sort}
+%    \begin{macrocode}
+%<*!natbib|natbib>
 FUNCTION {author.title.sort}
 { author empty$
     { title empty$
@@ -1690,9 +4118,68 @@ FUNCTION {author.title.sort}
      }  	
   if$
 }
+%</!natbib|natbib>
+%<*natbib|natbib>
+FUNCTION {author.editor.sort}
+{ author empty$
+    { editor empty$
+        { key empty$
+            { "to sort, need author, editor, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { editor sort.format.names }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
 
+FUNCTION {author.organization.sort}
+{ author empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need author, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { author sort.format.names }
+  if$
+}
 
-FUNCTION {presort}
+FUNCTION {editor.organization.sort}
+{ editor empty$
+    { organization empty$
+        { key empty$
+            { "to sort, need editor, organization, or key in " cite$ * warning$
+              ""
+            }
+            { key sortify }
+          if$
+        }
+        { "The " #4 organization chop.word sortify }
+      if$
+    }
+    { editor sort.format.names }
+  if$
+}
+%</natbib|natbib>
+
+
+%    \end{macrocode}
+% \DescribeFunction{presort}
+% Function to compute |sort.key$|.
+% What is the space string \verb*|"   "| for?
+%    \begin{macrocode}
+%<*!natbib>
+FUNCTION {presort}%#1
 {
   author.title.sort
   "   "
@@ -1707,24 +4194,135 @@ FUNCTION {presort}
   #1 entry.max$ substring$
   'sort.key$ :=
 }
+%</!natbib>
+%<*natbib>
+FUNCTION {presort}%#2
+{ calc.label
+  label sortify
+  %author.title.sort
+  "    "
+  *
+  % ========= plainnat.bst =========
+%  type$ "book" =
+%  type$ "inbook" =
+%  or
+%    'author.editor.sort
+%    { type$ "proceedings" =
+%        'editor.organization.sort
+%        { type$ "manual" =
+%            'author.organization.sort
+%            'author.sort
+%          if$
+%        }
+%      if$
+%    }
+%  if$
+  author.title.sort
+  "    "
+  *
+  year field.or.null sortify
+  *
+  "    "
+  *
+  %cite$
+  title field.or.null sort.format.title
+  *
+  #1 entry.max$ substring$
+  'sort.label :=
+  sort.label *
+  % ================================
+  #1 entry.max$ substring$
+  'sort.key$ :=
+}
+%</natbib>
+%</sort>
+
+%<*!sort>
+%<*natbib>
+INTEGERS { seq.num }
+
+FUNCTION {init.seq}
+{ #0 'seq.num :=}
+
+EXECUTE {init.seq}
+
+FUNCTION {int.to.fix}
+{ "000000000" swap$ int.to.str$ *
+  #-1 #10 substring$
+}
 
+FUNCTION {presort}%#3
+{
+  calc.label               % computes label
+  label sortify            % initiates sort.label
+  "    "
+  *
+  seq.num #1 + 'seq.num := % advance seq.num
+  seq.num  int.to.fix      % prepend seq.num with 0s
+  'sort.label :=           % set sort.label to seq.num
+  sort.label *             % append seq.num to label
+  #1 entry.max$ substring$ % cut if too long
+  'sort.key$ :=            % set sort.key$
+}
+%</natbib>
+%</!sort>
+
+%<*sort|natbib>
 ITERATE {presort}
 
 SORT
 
-%</gost71s|gost780s|gost705s>
+%</sort|natbib>
 
-STRINGS { longest.label }
+%    \end{macrocode}
+%
+% \subsection{Bibliography list}
+%
+% We need to find longest label to put in into the argument of
+% the |thebibliography| environment. In case of |natbib| options
+% we also need to compute extra suffix for the |year| field if there two or
+% more entries for given label (=author/editor/organization) in that year.
+%
+% Declare global (external) strings used in calculation of the longest label.
+%    \begin{macrocode}
+%<!natbib>STRINGS { longest.label }
+%<natbib>STRINGS { longest.label last.label next.extra }
 
-INTEGERS { number.label longest.label.width }
+%<!natbib>INTEGERS { number.label longest.label.width }
+%<natbib>INTEGERS { number.label longest.label.width last.extra.num  }
 
+%    \end{macrocode}
+%
+% \DescribeFunction{initialize.longest.label}
+% Initialize those string.
+%    \begin{macrocode}
+%<*!natbib>
 FUNCTION {initialize.longest.label}
 { "" 'longest.label :=
   #1 'number.label :=
   #0 'longest.label.width :=
 }
+%</!natbib>
+%<*natbib>
+FUNCTION {initialize.longest.label}
+{ "" 'longest.label :=
+  #0 int.to.chr$ 'last.label :=
+  "" 'next.extra :=
+  #0 'longest.label.width :=
+  #0 'last.extra.num :=
+  #0 'number.label :=
+}
+%</natbib>
+
+EXECUTE {initialize.longest.label}
 
-FUNCTION {longest.label.pass}
+%    \end{macrocode}
+%
+% \DescribeFunction{initialize.longest.label}
+% Iterate though the list of entries to compute |label|.
+%    \begin{macrocode}
+%<*!natbib>
+FUNCTION {forward.pass}
 { number.label int.to.str$ 'label :=
   number.label #1 + 'number.label :=
   label width$ longest.label.width >
@@ -1734,26 +4332,77 @@ FUNCTION {longest.label.pass}
     'skip$
   if$
 }
+%</!natbib>
+%<*natbib>
+FUNCTION {forward.pass}
+{ last.label label =
+    { last.extra.num #1 + 'last.extra.num :=
+      last.extra.num int.to.chr$ 'extra.label :=
+    }
+    { "a" chr.to.int$ 'last.extra.num :=
+      "" 'extra.label :=
+      label 'last.label :=
+    }
+  if$
+  number.label #1 + 'number.label :=
+}
+%</natbib>
 
-EXECUTE {initialize.longest.label}
+ITERATE {forward.pass}
+
+%    \end{macrocode}
+%
+% \DescribeFunction{reverse.pass}
+% |Natbib| styles require reverse iteration over all entries.
+%    \begin{macrocode}
+%<*natbib>
+FUNCTION {reverse.pass}
+{ next.extra "b" =
+    { "a" 'extra.label := }
+    'skip$
+  if$
+  extra.label 'next.extra :=
+  extra.label
+  duplicate$ empty$
+    'skip$
+    { "{\natexlab{" swap$ * "}}" * }
+  if$
+  'extra.label :=
+  label extra.label * 'label :=
+}
+
+REVERSE {reverse.pass}
+
+FUNCTION {bib.sort.order}
+{ sort.label  'sort.key$ :=
+}
 
-ITERATE {longest.label.pass}
+ITERATE {bib.sort.order}
 
+SORT
+%</natbib>
+
+%    \end{macrocode}
+% \DescribeFunction{begin.bib}
+% Within |thebibliography| environment we define few formatting macros
+% for user to customize how the reference list is formatted.
+%    \begin{macrocode}
 FUNCTION {begin.bib}
 { "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
   "\def\selectlanguageifdefined#1{"                  write$ newline$
   "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
   "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
+  "\providecommand*{\href}[2]{{\small #2}}"          write$ newline$
   "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
   "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
   "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-%</gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
-%<*gost71s|gost71u|gost705s|gost705u>
+  "\providecommand*{\BibEmph}[1]{#1}"                write$ newline$
+%<*modern>
   "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-%</gost71s|gost71u|gost705s|gost705u>
-%<*gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
+  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi" write$ newline$
+  "\cyrdash\hskip.2em\ignorespaces}" write$ newline$
+%</modern>
+%<natbib>  "\providecommand{\natexlab}[1]{#1}" write$ newline$
   preamble$ empty$
     'skip$
     { preamble$ write$ newline$ }
@@ -1767,6 +4416,9 @@ EXECUTE {init.state.consts}
 
 ITERATE {call.type$}
 
+%    \end{macrocode}
+% \DescribeFunction{end.bib}
+%    \begin{macrocode}
 FUNCTION {end.bib}
 { newline$
 %  "\catcode`\/=11"        write$ newline$
@@ -1775,5 +4427,12 @@ FUNCTION {end.bib}
 
 EXECUTE {end.bib}
 
-%</gost71s|gost71u|gost780s|gost780u|gost705s|gost705u>
+%</bst>
 %    \end{macrocode}
+%
+% That's all, Folks!
+%
+% \PrintChanges
+% \Finale
+%
+% \endinput
diff --git a/Master/texmf-dist/source/bibtex/gost/gost.ins b/Master/texmf-dist/source/bibtex/gost/gost.ins
index 1ad92e5e9e0..7abb758d26d 100644
--- a/Master/texmf-dist/source/bibtex/gost/gost.ins
+++ b/Master/texmf-dist/source/bibtex/gost/gost.ins
@@ -1,61 +1,80 @@
 \input docstrip
 
-\def\SimplePackage#1{%
-  \generate{\file{#1.bst}{\from{gost.dtx}{#1}}}}
-
-\def\mypostamble{%
-  \MetaPrefix ^^J%
-  \MetaPrefix\space End of file `\outFileName'.%
-  }
-
-\usepostamble\mypostamble
-
 \keepsilent
 
 \preamble
 
-Copyright 2012 Igor A. Kotelnikov.
-Version 2012.01.21
-
-Copyright 1996-2005 Maksym Polyakov.
-Version 2005.08.12
-
 This file may be distributed and/or modified under the
 conditions of the LaTeX Project Public License, either version 1.3
 of this license or (at your option) any later version.
 The latest version of this license is in
   http://www.latex-project.org/lppl.txt
 and version 1.3 or later is part of all distributions of LaTeX
-version 2005/12/01 or later.                                                        
+version 2005/12/01 or later.
 
-Please, send bug reports via e-mail:                          
-  kia999 at mail dot ru <Igor Kotelnikov>
-  polyama at yahoo dot edu  <Maksym Polyakov>                                         
+This file has the LPPL maintenance status "maintained".
+Maintained by Igor A. Kotelnikov.
+Current version: 2012.02.02
 
-2012.01.15 Added German, French, Italian languages, @online entry.
-
-2005.08.12 Bug fix (long annote)
- 
-2003.06.06 contributions by Konstantin Vorontsov:
-New ENTRY "annote" added to output annotations.
-New commands BibUrl, BibAnnote added for customize urls and annotations.
- 
-2003.08.10 
-New command BibEmph added to customize emphasizing.
-
-2003.10.07
-Some bug fixes in names and date formatting. 
-
-2003.10.07
-Bug fix in INPROCEEDINGS. 
+Please, send bug report via e-mail:
+  kia999 at mail dot ru <Igor Kotelnikov>
+or
+  polyama at yahoo dot com <Maksym Polyakov>
 
 \endpreamble
 
-%\SimplePackage{gost71s}
-%\SimplePackage{gost71u}
-\SimplePackage{gost780s}
-\SimplePackage{gost780u}
-\SimplePackage{gost705s}
-\SimplePackage{gost705u}
-
+\def\mypostamble{%
+  \MetaPrefix ^^J%
+  \MetaPrefix\space End of file `\outFileName'.%
+  }
+\usepostamble\mypostamble
+\askonceonly
+\generate{%
+%
+% BST styles that mimics obsoleate version of GOST 7.8.0 for bibliographic *records*
+  \file{gost780.bst}             {\from{gost.dtx} {bst}}
+%
+% BST styles that mimics GOST 7.1-2003 for bibliographic *catalogs*.
+  \file{gost2003.bst}            {\from{gost.dtx} {bst,strict,eprint}}
+%
+% BST styles that mimics GOST 7.0.5-2008 for bibliographic *references*
+  \file{gost2008.bst}            {\from{gost.dtx} {bst,modern,eprint}}
+  \file{gost2008l.bst}           {\from{gost.dtx} {bst,modern,eprint,long}}
+%
+% Same style with sorting
+  \file{gost780s.bst}            {\from{gost.dtx} {bst,sort}}
+%
+  \file{gost2003s.bst}           {\from{gost.dtx} {bst,strict,eprint,sort}}
+%
+  \file{gost2008s.bst}           {\from{gost.dtx} {bst,modern,eprint,sort}}
+  \file{gost2008ls.bst}          {\from{gost.dtx} {bst,modern,eprint,long,sort}}
+%
+% -----------------------------------------------------------------------------------------
+% Unicode BST styles that mimics obsolete version of GOST 7.8.0 for bibliographic *records*
+%  \file{ugost780.bst}            {\from{gost.dtx} {bst,utf8}}
+%
+% Unicode BST styles that mimics GOST 7.1-2003 for bibliographic *catalogs*.
+  \file{ugost2003.bst}           {\from{gost.dtx} {bst,utf8,strict,eprint}}
+%
+% Unicode BST styles that mimics GOST 7.0.5-2008 for bibliographic *references*
+  \file{ugost2008.bst}           {\from{gost.dtx} {bst,utf8,modern,eprint}}
+  \file{ugost2008l.bst}          {\from{gost.dtx} {bst,utf8,modern,eprint,long}}
+%
+% Same style with sorting
+%  \file{ugost780s.bst}           {\from{gost.dtx} {bst,utf8,sort}}
+%
+  \file{ugost2003s.bst}          {\from{gost.dtx} {bst,utf8,strict,eprint,sort}}
+%
+  \file{ugost2008s.bst}          {\from{gost.dtx} {bst,utf8,modern,eprint,sort}}
+  \file{ugost2008ls.bst}         {\from{gost.dtx} {bst,utf8,modern,eprint,longlist,sort}}
+%
+% -----------------------------------------------------------------------------------------
+% Experimental style compatible with natbib package.
+%
+  \file{gost2008n.bst}           {\from{gost.dtx} {bst,modern,natbib,eprint}}
+  \file{gost2008ns.bst}          {\from{gost.dtx} {bst,modern,natbib,eprint,sort}}
+%
+  \file{ugost2008n.bst}          {\from{gost.dtx} {bst,utf8,modern,natbib,eprint}}
+  \file{ugost2008ns.bst}         {\from{gost.dtx} {bst,utf8,modern,natbib,eprint,sort}}
+}
 \endbatchfile
diff --git a/Master/texmf-dist/source/bibtex/gost/unicode-gost.dtx b/Master/texmf-dist/source/bibtex/gost/unicode-gost.dtx
deleted file mode 100644
index a847f3250ef..00000000000
--- a/Master/texmf-dist/source/bibtex/gost/unicode-gost.dtx
+++ /dev/null
@@ -1,1779 +0,0 @@
-% !Mode:: "DTX:UNIX:UTF-8"
-% \endinput
-%    \begin{macrocode}
-%<*unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%%
-%% This bibliography style attempts
-%% to format bibliography according to
-%</unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%<unicode-gost71s|unicode-gost71u>%% GOST 7.1-2004 (superseeded)
-%<unicode-gost780s|unicode-gost780u>%% (obsolete)
-%<unicode-gost705s|unicode-gost705u>%% GOST 7.0.5-2008
-%<*unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%%
-%% For the Ukrainian|Russian bibliographic entries
-%% you need to create field
-%% language = {ukrainian|russian}.
-%% Default language is English.
-%% Field numpages for books must contain number of pages.
-%% Optional field url will format url (using hyperref, if loaded).
-%%
-%% See examples in gost71.pdf, gost780.pdf and gost705.pdf
-%%
-%% Requires 8-bit bibtex with switch -B.
-%% bibtex8.exe -B <your_document>
-%% or
-%% bibtex.exe <your_document>
-%%
-
-ENTRY
-  { address
-    annote
-    author
-    booktitle
-    bookauthor
-    chapter
-    edition
-    editor
-    compiler
-    howpublished
-    institution
-    journal
-    key
-    month
-    note
-    number
-    organization
-    pages
-    numpages
-    publisher
-    school
-    series
-    title
-    type
-    volume
-    year
-    language
-    booklanguage
-    url
-    urldate
-  }
-  {}
-  { label }
-
-INTEGERS { output.state before.all mid.sentence after.sentence after.block
-after.dblslash after.slash after.column after.semicolumn}
-
-FUNCTION {init.state.consts}
-{ #0 'before.all :=
-  #1 'mid.sentence :=
-  #2 'after.sentence :=
-  #3 'after.block :=
-  #4 'after.dblslash :=
-  #5 'after.slash :=
-  #6 'after.column :=
-  #7 'after.semicolumn :=
-}
-
-STRINGS { s t }
-
-STRINGS { curlanguage }
-
-FUNCTION {change.language}
-{ booklanguage empty$
-    {""}
-    {booklanguage  'curlanguage :=
-    "\selectlanguageifdefined{"
-    curlanguage *
-    "}" *
-     }
-  if$
-}
-
-FUNCTION {output.nonnull}
-%%%{ 's :=
-{ swap$
-  output.state mid.sentence =
-    { ", " * write$ }
-    { output.state after.block =
-        { add.period$ write$
-%</unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost780s|unicode-gost780u>
-          " " quote$ "--- " * *  write$
-%</unicode-gost780s|unicode-gost780u>
-%<*unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-          " \BibDash " write$
-%</unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-          newline$
-          "\newblock " write$
-        }
-        { output.state before.all =
-            'write$
-            { output.state after.dblslash =
-                { "~//" * change.language * " " * write$ }
-                { output.state after.slash =
-                    { "~/ " * write$ }
-                    { output.state after.column =
-                       { ": " * write$ }
-                       { output.state after.semicolumn =
-                           { "; " * write$ }
-	                       { add.period$ " " * write$ }
-    	                if$
-		               }
-                    if$
-                  }
-                  if$
-                }
-              if$
-            }
-          if$
-        }
-      if$
-      mid.sentence 'output.state :=
-    }
-  if$
-%%%  s
-}
-
-FUNCTION {output}
-{ duplicate$ empty$
-    'pop$
-    'output.nonnull
-  if$
-}
-
-FUNCTION {output.check}
-{ 't :=
-  duplicate$ empty$
-    { pop$ "empty " t * " in " * cite$ * warning$ }
-    'output.nonnull
-  if$
-}
-
-FUNCTION {fin.entry}
-{ add.period$
-  write$
-  newline$
-}
-
-FUNCTION {new.block}
-{ output.state before.all =
-    'skip$
-    { after.block 'output.state := }
-  if$
-}
-
-FUNCTION {new.dblslash}
-{ output.state before.all =
-    'skip$
-    { after.dblslash 'output.state := }
-  if$
-}
-
-FUNCTION {new.slash}
-{ output.state before.all =
-    'skip$
-    { after.slash 'output.state := }
-  if$
-}
-
-FUNCTION {new.column}
-{ output.state before.all =
-    'skip$
-    { after.column 'output.state := }
-  if$
-}
-
-FUNCTION {new.semicolumn}
-{ output.state before.all =
-    'skip$
-    { after.semicolumn 'output.state := }
-  if$
-}
-
-FUNCTION {new.sentence}
-{ output.state after.block =
-    'skip$
-    { output.state before.all =
-        'skip$
-        { after.sentence 'output.state := }
-      if$
-    }
-  if$
-}
-
-FUNCTION {add.blank}
-{ " " * before.all 'output.state :=
-}
-
-FUNCTION {not}
-{   { #0 }
-    { #1 }
-  if$
-}
-
-FUNCTION {and}
-{   'skip$
-    { pop$ #0 }
-  if$
-}
-
-FUNCTION {or}
-{   { pop$ #1 }
-    'skip$
-  if$
-}
-
-FUNCTION {non.stop}
-{ duplicate$
-   "}" * add.period$
-   #-1 #1 substring$ "." =
-}
-
-FUNCTION {new.block.checka}
-{ empty$
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.block.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.block
-  if$
-}
-
-FUNCTION {new.sentence.checka}
-{ empty$
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {new.sentence.checkb}
-{ empty$
-  swap$ empty$
-  and
-    'skip$
-    'new.sentence
-  if$
-}
-
-FUNCTION {field.or.null}
-{ duplicate$ empty$
-    { pop$ "" }
-    'skip$
-  if$
-}
-
-FUNCTION {emphasize}
-{ duplicate$ empty$
-    { pop$ "" }
-    { "\BibEmph{" swap$ * "}" * }
-  if$
-}
-
-FUNCTION {space.word}
-{ " " swap$ * " " * }
-
-
-FUNCTION {bbl.edby}    %  { "\bbledby{}" }
-{  curlanguage "english" =
-    {"Ed. by "}
-    { curlanguage "ukrainian" =
-        {"{Під ред. }"}
-        { curlanguage "russian" =
-           {"{Под ред. }"}
-           {"language is not defined: " language  "edited by" * * warning$ "edited by"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.cmplr}
-{ curlanguage "english" =
-     {"Compiler "}
-     { curlanguage "ukrainian" =
-        {"{Укл. }"}
-        { curlanguage "russian" =
-           {"{Сост. }"}
-           {"language is not defined: " language  "compiler" * * warning$ "compiler"}
-         if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.edition} %  { "\bbledition{}" }
-{ curlanguage "english" =
-    {"edition"}
-    { curlanguage "ukrainian" =
-      {"{вид.}"}
-        { curlanguage "russian" =
-          {"{изд.}"}
-          { curlanguage "german" =
-            {" {aus.}" }
-            { curlanguage "italian" =
-              {"edizione"}
-              { curlanguage "french" =
-                {"\'{e}dition"}
-                {"language is not defined: " language  "edition" * * warning$ "edition"}
-            if$}
-          if$}
-        if$}
-      if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.vvolume} %  { "\bblVolume{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Volume"}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Том"}
-        { curlanguage "german" =
-            {"{Volumen}"}
-            {"language is not defined: " language  "Volume" * * warning$ "Volume"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.vvol}    %  { "\bblVol{}" }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Vol."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Т."}
-        { curlanguage "german" =
-             {"{Vol.}"}
-             {"language is not defined: " language  "Vol." * * warning$ "Vol."}
-        if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.iissue}  %  { "\bblIssue{}" }
-{  curlanguage "english" =
-     {"Issue"}
-     { curlanguage "ukrainian" =
-        {"Випуск"}
-        { curlanguage "russian" =
-           {"Выпуск"}
-           { curlanguage "german" =
-              {"{Ausgabe}"}
-              {"language is not defined: " language * warning$ "Issue"}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iiss}  %  { "\bblIss{}" }
-{  curlanguage "english" =
-    {"Iss."}
-    { curlanguage "ukrainian" =
-        {"Вип."}
-        { curlanguage "russian" =
-            {"Вып."}
-            { curlanguage "german" =
-                {"{Aus.}"}
-                {"language is not defined: " language * warning$ "Iss"}
-            if$}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.of}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"of"}
-    { curlanguage "ukrainian" =
-        {"{із}"}
-        { curlanguage "russian" =
-           {"{из}"}
-           {"language is not defined: " language "of" *  * warning$ "of"}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.etal}      %  { "\bblof{}" }
-{  curlanguage "english" =
-    {"et~al."}
-    { curlanguage "ukrainian" =
-        {"{та~ін.}"}
-        { curlanguage "russian" =
-           {"{и~др.}"}
-           {"language is not defined: " language  "at al" * * warning$ "at al."}
-         if$}
-      if$}
-  if$
-}
-
-FUNCTION {bbl.nnumber} %  { "\bblNumber{}" }
-{ curlanguage "english" =
-     {"Number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"Номер"}
-        { curlanguage "german" =
-           {"{Anzahl}"}
-           {"language is not defined: " language  "Number" * * warning$ "Number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.number}  %  { "\bblnumber{}" }
-{ curlanguage "english" =
-     {"number"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{номер}"}
-        { curlanguage "german" =
-           {"{anzahl}"}
-           {"language is not defined: " language  "number" * * warning$ "number"}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-    {"no."}
-    { curlanguage "italian" =
-        { "no" }
-        { curlanguage "ukrainian" = curlanguage "russian" = or
-           {"{№}"}
-           { curlanguage "german" =
-              {"{an.}"}
-              {"language is not defined: " language  "no." * * warning$ "no."}
-           if$}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.nnr}     %   { "\bblno{}" }
-{ curlanguage "english" =
-     {"No."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{№}"}
-        { curlanguage "german" =
-           {"{an.}"}
-           {"language is not defined: " language  "No." * * warning$ "No."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.in}    %    { "\bblin{}" }
-{  curlanguage "english" = curlanguage "german" = or
-     {"in"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"{в}"}
-         {"language is not defined: " language  "in" * * warning$ "in"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.iin}  %     { "\bblIn{}" }
-{ curlanguage "english" = curlanguage "german" = or
-     {"In"}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-         {"В"}
-         {"language is not defined: " language  "In" * * warning$ "In"}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.pages}    % { "\bblpp." }
-{  curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-     {"pp."}
-     { curlanguage "ukrainian" = curlanguage "russian" = or
-        {"{с.}"}
-        { curlanguage "german" =
-           {"s."}
-           {"language is not defined: " language  "pp." * * warning$ "pp."}
-        if$}
-     if$}
-  if$
-}
-
-FUNCTION {bbl.page}   %   { "\bblp."
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"p."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{с.}"}
-       { curlanguage "german" =
-          {"s."}
-          {"language is not defined: " language  "p." * * warning$ "p."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppages}%    { "\bblPp." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"Pp."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "Pp." * * warning$ "Pp."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.ppage}  %   { "\bblP." }
-{ curlanguage "english" = curlanguage "french" = or curlanguage "italian" = or
-    {"P."}
-    { curlanguage "ukrainian" = curlanguage "russian" = or
-       {"{С.}"}
-       { curlanguage "german" =
-          {"S."}
-          {"language is not defined: " language  "P." * * warning$ "P."}
-       if$}
-    if$}
-  if$
-}
-
-FUNCTION {bbl.urldate}
-{  curlanguage "english" =
-     {"online; accessed: "}
-     { curlanguage "ukrainian" =
-        {"дата звернення: "}
-        { curlanguage "russian" =
-           {"дата обращения: "}
-           { curlanguage "german" =
-              {"{online; abgerufen: }"}
-              {"language is not defined: " language * warning$ "online; accessed: "}
-           if$}
-        if$}
-     if$}
-  if$
-}
-%<*debug>
-
-\def\bblchapter{chapter}        \def\bblchap{chap.}
-%\def\bblmthesis{Master's thesis}
-%\def\bblphdthesis{Ph.D. thesis}
-%\def\bblfirst{First}            \def\bblfirsto{1st}
-%\def\bblsecond{Second}          \def\bblsecondo{2nd}
-%\def\bblthird{Third}            \def\bblthirdo{3rd}
-%\def\bblfourth{Fourth}          \def\bblfourtho{4th}
-%\def\bblfifth{Fifth}            \def\bblfiftho{5th}
-%\def\bblst{st}  \def\bblnd{nd}  \def\bblrd{rd}
-%\def\bblth{th}
-%
-FUNCTION {bbl.chapter}   { "\bblchapter{}" }
-FUNCTION {bbl.techreport} {"Technical Report"}
-FUNCTION {bbl.first}     { "\bblfirsto{}" }
-FUNCTION {bbl.second}    { "\bblsecondo{}" }
-FUNCTION {bbl.third}     { "\bblthirdo{}" }
-FUNCTION {bbl.fourth}    { "\bblfourtho{}" }
-FUNCTION {bbl.fifth}     { "\bblfiftho{}" }
-FUNCTION {bbl.st}        { "\bblst" }
-FUNCTION {bbl.nd}        { "\bblnd" }
-FUNCTION {bbl.rd}        { "\bblrd" }
-FUNCTION {bbl.th}        { "\bblth" }
-
-%</debug>
-
-FUNCTION {bbl.techrep}   { "Tech. Rep." }
-FUNCTION {bbl.mthesis}   { "Master's thesis" }
-FUNCTION {bbl.phdthesis} { "Ph.D. thesis" }
-
-
-INTEGERS { nameptr namesleft numnames }
-
-%<*unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-
-FUNCTION {format.names}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{vv~}{ll}{~jj}{~ff}" format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-	      t "~others" =
-	      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-%</unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost780s|unicode-gost780u>
-
-FUNCTION {format.names}
-{
-  #1 "{vv~}{ll}{~jj}{,~ff}" format.name$
-}
-
-%</unicode-gost780s|unicode-gost780u>
-
-FUNCTION {format.names.rev}
-{ 's :=
-  #1 'nameptr :=
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { s nameptr
-      "{ff}{~vv}{~ll}{, jj}"
-      format.name$ 't :=
-      nameptr #1 >
-        {
-          nameptr #4 =
-          numnames #4 > and
-            { "others" 't :=
-              #1 'namesleft := }
-            'skip$
-          if$
-          namesleft #1 >
-            { ", " * t * }
-            {
-              t "others" =
-	      t "~others" =
-	      or
-                { " " * bbl.etal * }
-                { ", " * t * }
-              if$
-            }
-          if$
-        }
-        't
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {format.authors}
-{ author empty$
-    { "" }
-    { author format.names emphasize}
-  if$
-}
-
-FUNCTION {format.bookauthors}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names}
-  if$
-}
-
-FUNCTION {format.authors.after}
-{ author empty$
-    { "" }
-    { author format.names.rev}
-  if$
-}
-
-FUNCTION {format.bookauthors.after}
-{ bookauthor empty$
-    { "" }
-    { bookauthor format.names.rev}
-  if$
-}
-
-FUNCTION {format.editors.after}
-{ editor empty$
-    { "" }
-    { bbl.edby editor format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.compiler.after}
-{ compiler empty$
-    { "" }
-    { bbl.cmplr compiler format.names.rev *
-    }
-  if$
-}
-
-FUNCTION {format.title}
-{ title empty$
-    { "" }
-    { title
-    }
-  if$
-}
-
-FUNCTION {format.date}
-{ year empty$
-    { month empty$
-        { "" }
-        { "there's a month but no year in " cite$ * warning$
-          month
-        }
-      if$
-    }
-    { month empty$
-        'year
-        { year ". " "--- " month * * * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {output.address.publisher.date}
-{
-      address empty$
-        'skip$
-        { address output
-          publisher empty$
-            'skip$
-            { new.column
-            }
-          if$
-        }
-        if$
-        publisher output
-        format.date output
-}
-
-FUNCTION {output.bibitem}
-{ newline$
-  "\bibitem{" write$
-  cite$ write$
-  "}" write$
-  newline$
-  language empty$
-    {"english" 'curlanguage :=}
-    {language  'curlanguage :=}
-  if$
-  "\selectlanguageifdefined{" write$
-  curlanguage write$
-  "}" write$ newline$
-  ""
-  before.all 'output.state :=
-}
-
-FUNCTION {n.dashify}
-{ 't :=
-  ""
-    { t empty$ not }
-    { t #1 #1 substring$ "-" =
-        { t #1 #2 substring$ "--" = not
-            { "--" *
-              t #2 global.max$ substring$ 't :=
-            }
-            {   { t #1 #1 substring$ "-" = }
-                { "-" *
-                  t #2 global.max$ substring$ 't :=
-                }
-              while$
-            }
-          if$
-        }
-        { t #1 #1 substring$ *
-          t #2 global.max$ substring$ 't :=
-        }
-      if$
-    }
-  while$
-}
-
-FUNCTION {word.in}
-{ bbl.iin
-  " " * }
-
-FUNCTION {format.btitle}
-{ title
-}
-
-FUNCTION {tie.or.space.connect}
-{ duplicate$ text.length$ #3 <
-    { "~" }
-    { " " }
-  if$
-  swap$ * *
-}
-
-FUNCTION {tie.connect}
- {"~"
-  swap$ * *
- }
-
-
-FUNCTION {either.or.check}
-{ empty$
-    'pop$
-    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
-  if$
-}
-
-FUNCTION {format.bvolume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.connect
-      series empty$
-        'skip$
-        { bbl.of space.word * series emphasize * }
-      if$
-      "volume and number" number either.or.check
-    }
-  if$
-}
-
-FUNCTION {format.number.series}
-{ volume empty$
-    { number empty$
-        { series field.or.null }
-        { series empty$
-            { "there's a number but no series in " cite$ * warning$
-              bbl.nnr }
-            {
-              %new.dblslash
-              new.sentence
-              series
-              bbl.nr
-              tie.or.space.connect}
-          if$
-          number tie.or.space.connect
-        }
-      if$
-    }
-    { "" }
-  if$
-}
-
-FUNCTION {is.num}
-{ chr.to.int$
-  duplicate$ "0" chr.to.int$ < not
-  swap$ "9" chr.to.int$ > not and
-}
-
-FUNCTION {extract.num}
-{ duplicate$ 't :=
-  "" 's :=
-  { t empty$ not }
-  { t #1 #1 substring$
-    t #2 global.max$ substring$ 't :=
-    duplicate$ is.num
-      { s swap$ * 's := }
-      { pop$ "" 't := }
-    if$
-  }
-  while$
-  s empty$
-    'skip$
-    { pop$ s }
-  if$
-}
-
-%<*debug>
-FUNCTION {eng.ord}
-{ duplicate$ "1" swap$ *
-  #-2 #1 substring$ "1" =
-     { bbl.th * }
-     { duplicate$ #-1 #1 substring$
-       duplicate$ "1" =
-         { pop$ bbl.st * }
-         { duplicate$ "2" =
-             { pop$ bbl.nd * }
-             { "3" =
-                 { bbl.rd * }
-                 { bbl.th * }
-               if$
-             }
-           if$
-          }
-       if$
-     }
-   if$
-}
-%</debug>
-
-FUNCTION {convert.edition}
-{ edition
-% edition extract.num 's :=
-%  s "first" = s "1" = or
-%    { bbl.first 't := }
-%    { s "second" = s "2" = or
-%        { bbl.second 't := }
-%        { s "third" = s "3" = or
-%            { bbl.third 't := }
-%            { s "fourth" = s "4" = or
-%                { bbl.fourth 't := }
-%                { s "fifth" = s "5" = or
-%                    { bbl.fifth 't := }
-%                    { s #1 #1 substring$ is.num
-%                        { s eng.ord 't := }
-%                        { edition 't := }
-%                      if$
-%                    }
-%                  if$
-%                }
-%              if$
-%            }
-%          if$
-%        }
-%      if$
-%    }
-%  if$
-%  t
-}
-
-FUNCTION {format.edition}
-{ edition empty$
-    { "" }
-    { output.state mid.sentence =
-        { convert.edition " " * bbl.edition * }
-        { convert.edition " " * bbl.edition * }
-      if$
-    }
-  if$
-}
-
-INTEGERS { multiresult }
-
-FUNCTION {multi.page.check}
-{ 't :=
-  #0 'multiresult :=
-    { multiresult not
-      t empty$ not
-      and
-    }
-    { t #1 #1 substring$
-      duplicate$ "-" =
-      swap$ duplicate$ "," =
-      swap$ "+" =
-      or or
-        { #1 'multiresult := }
-        { t #2 global.max$ substring$ 't := }
-      if$
-    }
-  while$
-  multiresult
-}
-
-FUNCTION {format.pages}
-{ pages empty$
-    { "" }
-    { pages multi.page.check
-        { bbl.ppages pages n.dashify tie.connect }
-        { bbl.ppage pages tie.connect }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.pages.page}
-{ pages empty$
-    { numpages empty$
-      { "" }
-      { numpages bbl.pages tie.connect }
-    if$}
-    { format.pages}
-  if$
-}
-
-FUNCTION {format.vol.num.pages}
-{ volume field.or.null
-  number empty$
-    'skip$
-    {
-      ", no." number tie.or.space.connect *
-      volume empty$
-        { "there's a number but no volume in " cite$ * warning$ }
-        'skip$
-      if$
-    }
-  if$
-  pages empty$
-    'skip$
-    { duplicate$ empty$
-        { pop$ format.pages }
-        { ": " * pages n.dashify * }
-      if$
-    }
-  if$
-}
-
-FUNCTION {format.volume}
-{ volume empty$
-    { "" }
-    { bbl.vvol volume tie.or.space.connect }
-  if$
-}
-
-FUNCTION {format.number}
-{ number empty$
-    { "" }
-    { bbl.nr number tie.or.space.connect }
-  if$
-}
-
-%<*debug>
-FUNCTION {format.chapter.pages}
-{ chapter empty$
-    'format.pages
-    { type empty$
-        { bbl.chapter }
-        { type }
-      if$
-      chapter tie.or.space.connect
-      pages empty$
-        'skip$
-        { ", " * format.pages * }
-      if$
-    }
-  if$
-}
-%</debug>
-
-FUNCTION {empty.misc.check}
-{ author empty$ title empty$ howpublished empty$
-  month empty$ year empty$ note empty$
-  and and and and and
-  key empty$ not and
-    { "all relevant fields are empty in " cite$ * warning$ }
-    'skip$
-  if$
-}
-
-FUNCTION {format.thesis.type}
-{ type empty$
-    'skip$
-    { pop$
-      type
-    }
-  if$
-}
-
-FUNCTION {format.tr.number}
-{ type empty$
-    { bbl.techrep }
-    'type
-  if$
-  number empty$
-    { "" }
-    { number tie.or.space.connect }
-  if$
-}
-
-FUNCTION {author.before}
-{
-  author empty$
-    'skip$
-    {author num.names$ #4 <
-      {format.authors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-FUNCTION {bookauthor.before}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #4 <
-      {format.bookauthors output
-       new.sentence}
-      'skip$
-    if$}
-  if$
-}
-
-%<*unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {author num.names$ #3 >
-      {format.authors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {bookauthor num.names$ #3 >
-      {format.bookauthors.after output
-       new.semicolumn }
-      'skip$
-    if$}
-  if$
-}
-%</unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost780s|unicode-gost780u>
-
-FUNCTION {author.after}
-{
-  author empty$
-    'skip$
-    {format.authors.after output
-       new.semicolumn }
-  if$
-}
-FUNCTION {bookauthor.after}
-{
-  bookauthor empty$
-    'skip$
-    {format.bookauthors.after output
-       new.semicolumn }
-  if$
-}
-%</unicode-gost780s|unicode-gost780u>
-
-FUNCTION {editor.organization.after}
-{
-  compiler empty$
-    {}
-    { format.compiler.after  output
-    new.semicolumn
-    }
-  if$
-  editor empty$
-    {}
-    { format.editors.after  output
-    new.semicolumn
-    }
-  if$
-  organization empty$
-    {}
-    {organization output
-    new.semicolumn
-    }
-  if$
-}
-
-FUNCTION {format.url}
-{ url empty$
-    { "" }
-    {
-%<unicode-gost780s|unicode-gost780u>      "\BibUrl{ " url * "}" *
-%<unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>      "URL: \BibUrl{" url * "}" *
-      urldate empty$
-        { "" }
-        { " (" bbl.urldate * urldate * ")" * }
-      if$ *
-    }
-  if$
-}
-
-FUNCTION {format.annote}
-{ annote empty$
-    { "" }
-	{ after.sentence 'output.state :=
-	  "\BibAnnote{" annote add.period$ * "}" *
-	}
-  if$
-}
-
-FUNCTION {article}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  journal emphasize "journal" output.check
-  new.block
-  format.date output
-  new.block
-  format.volume output
-  format.number output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {book}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.sentence
-  format.number.series output
-  new.block
-  format.edition output
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {booklet}
-{ output.bibitem
-  author.before
-  format.title "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  howpublished output
-  address output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inbook}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  bookauthor.before
-  booktitle "booktitle" output.check
-  new.slash
-  bookauthor.after
-  editor.organization.after
-  new.block
-  format.edition output
-  new.block
-  format.number.series output
-  new.sentence
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {incollection}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  output.address.publisher.date
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {inproceedings}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.slash
-  author.after
-  new.dblslash
-  booktitle "booktitle" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  new.block
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      new.column
-      publisher output
-      format.date "year" output.check
-    }
-  if$
-  new.block
-  format.pages.page output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {conference} { inproceedings }
-
-FUNCTION {manual}
-{ output.bibitem
-  author empty$
-    { organization empty$
-        'skip$
-        { organization output.nonnull
-          address output
-        }
-      if$
-    }
-    { format.authors output.nonnull }
-  if$
-  new.block
-  format.btitle "title" output.check
-  author empty$
-    { organization empty$
-    {
-          address new.block.checka
-          address output
-        }
-        'skip$
-      if$
-    }
-    {
-      organization address new.block.checkb
-      organization output
-      address output
-    }
-  if$
-  format.edition output
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {mastersthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.block
-  format.btitle "title" output.check
-  new.block
-  bbl.mthesis format.thesis.type output.nonnull
-  school "school" output.check
-  address output
-  format.date "year" output.check
-  new.block
-  note output
-  new.block
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {misc}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.btitle output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {phdthesis}
-{ output.bibitem
-  format.authors "author" output.check
-  new.sentence
-  format.btitle "title" output.check
-  new.column
-  bbl.phdthesis format.thesis.type output.nonnull
-  new.slash
-  school "school" output.check
-  new.block
-  output.address.publisher.date
-  new.block
-  format.pages.page output
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {proceedings}
-{ output.bibitem
-  format.btitle "title" output.check
-  new.slash
-  editor.organization.after
-  new.block
-  format.bvolume output
-  format.number.series output
-  address empty$
-    { publisher output
-      format.date "year" output.check
-    }
-    { address output.nonnull
-      format.date "year" output.check
-      new.sentence
-      publisher output
-    }
-  if$
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {techreport}
-{ output.bibitem
-  author.before
-  new.sentence
-  format.title "title" output.check
-  new.column
-  format.tr.number output.nonnull
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  address output
-  new.column
-  institution "institution" output.check
-  format.date "year" output.check
-  new.block
-  note output
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {unpublished}
-{ output.bibitem
-  author.before
-  format.btitle "title" output.check
-  new.slash
-  author.after
-  editor.organization.after
-  new.block
-  note "note" output.check
-  new.sentence
-  format.url output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {online}
-{ output.bibitem
-  format.authors output
-  title howpublished new.sentence.checkb
-  format.title output
-  howpublished new.block.checka
-  howpublished output
-  new.block
-  format.date output
-  new.block
-  format.url output
-  new.sentence
-  note output
-  format.annote output
-  fin.entry
-}
-
-FUNCTION {default.type} { misc }
-
-MACRO {jan} {"\bbljan{}"}
-
-MACRO {feb} {"\bblfeb{}"}
-
-MACRO {mar} {"\bblmar{}"}
-
-MACRO {apr} {"\bblapr{}"}
-
-MACRO {may} {"\bblmay{}"}
-
-MACRO {jun} {"\bbljun{}"}
-
-MACRO {jul} {"\bbljul{}"}
-
-MACRO {aug} {"\bblaug{}"}
-
-MACRO {sep} {"\bblsep{}"}
-
-MACRO {oct} {"\bbloct{}"}
-
-MACRO {nov} {"\bblnov{}"}
-
-MACRO {dec} {"\bbldec{}"}
-
-MACRO {acmcs} {"ACM Computing Surveys"}
-
-MACRO {acta} {"Acta Informatica"}
-
-MACRO {cacm} {"Communications of the ACM"}
-
-MACRO {ibmjrd} {"IBM Journal of Research and Development"}
-
-MACRO {ibmsj} {"IBM Systems Journal"}
-
-MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
-
-MACRO {ieeetc} {"IEEE Transactions on Computers"}
-
-MACRO {ieeetcad}
- {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
-
-MACRO {ipl} {"Information Processing Letters"}
-
-MACRO {jacm} {"Journal of the ACM"}
-
-MACRO {jcss} {"Journal of Computer and System Sciences"}
-
-MACRO {scp} {"Science of Computer Programming"}
-
-MACRO {sicomp} {"SIAM Journal on Computing"}
-
-MACRO {tocs} {"ACM Transactions on Computer Systems"}
-
-MACRO {tods} {"ACM Transactions on Database Systems"}
-
-MACRO {tog} {"ACM Transactions on Graphics"}
-
-MACRO {toms} {"ACM Transactions on Mathematical Software"}
-
-MACRO {toois} {"ACM Transactions on Office Information Systems"}
-
-MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
-
-MACRO {tcs} {"Theoretical Computer Science"}
-
-READ
-
-%<*unicode-gost71s|unicode-gost780s|unicode-gost705s>
-
-FUNCTION {sortify}
-{ purify$
-%%%% Why it is commented ? %%%  "l" change.case$
-}
-
-INTEGERS { len }
-
-FUNCTION {chop.word}
-{ 's :=
-  'len :=
-  s #1 len substring$ =
-    { s len #1 + global.max$ substring$ }
-    's
-  if$
-}
-
-FUNCTION {sort.format.names}
-{ 's :=
-  #1 'nameptr :=
-  ""
-  s num.names$ 'numnames :=
-  numnames 'namesleft :=
-    { namesleft #0 > }
-    { nameptr #1 >
-        { "   " * }
-        'skip$
-      if$
-      s nameptr
-      "{vv{ } }{ll{ }}{  f{ }}{  jj{ }}"
-      format.name$ 't :=
-      nameptr numnames = t "others" = and
-        { "et al" * }
-        { t sortify * }
-      if$
-      nameptr #1 + 'nameptr :=
-      namesleft #1 - 'namesleft :=
-    }
-  while$
-}
-
-FUNCTION {sort.format.title}
-{ 't :=
-  "A " #2
-    "An " #3
-      "The " #4 t chop.word
-    chop.word
-  chop.word
-  sortify
-  #1 global.max$ substring$
-}
-
-FUNCTION {author.sort}
-{ author empty$
-    { key empty$
-        { "to sort, need author or key in " cite$ * warning$
-          ""
-        }
-        { key sortify }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-    }
-  if$
-}
-
-FUNCTION {author.title.sort}
-{ author empty$
-    { title empty$
-        { key empty$
-            { "to sort, need author, title, or key in " cite$ * warning$
-              ""
-            }
-            { key sortify }
-          if$
-        }
-        { title sort.format.title }
-      if$
-    }
-    {
-      author num.names$ #4 <
-        {author sort.format.names }
-        {title sort.format.title}
-      if$
-     }  	
-  if$
-}
-
-
-FUNCTION {presort}
-{
-  author.title.sort
-  "   "
-  *
-  year field.or.null sortify
-  *
-  "   "
-  *
-  title field.or.null
-  sort.format.title
-  *
-  #1 entry.max$ substring$
-  'sort.key$ :=
-}
-
-ITERATE {presort}
-
-SORT
-
-%</unicode-gost71s|unicode-gost780s|unicode-gost705s>
-
-STRINGS { longest.label }
-
-INTEGERS { number.label longest.label.width }
-
-FUNCTION {initialize.longest.label}
-{ "" 'longest.label :=
-  #1 'number.label :=
-  #0 'longest.label.width :=
-}
-
-FUNCTION {longest.label.pass}
-{ number.label int.to.str$ 'label :=
-  number.label #1 + 'number.label :=
-  label width$ longest.label.width >
-    { label 'longest.label :=
-      label width$ 'longest.label.width :=
-    }
-    'skip$
-  if$
-}
-
-EXECUTE {initialize.longest.label}
-
-ITERATE {longest.label.pass}
-
-FUNCTION {begin.bib}
-{ "\begin{thebibliography}{"  longest.label  * "}" * write$ newline$
-  "\def\selectlanguageifdefined#1{"                  write$ newline$
-  "\expandafter\ifx\csname date#1\endcsname\relax"   write$ newline$
-  "\else\language\csname l@#1\endcsname\fi}"         write$ newline$
-  "\providecommand*{\url}[1]{{\small #1}}"           write$ newline$
-  "\providecommand*{\BibUrl}[1]{\url{#1}}"           write$ newline$
-  "\providecommand{\BibAnnote}[1]{}"                 write$ newline$
-  "\providecommand*{\BibEmph}[1]{\emph{#1}}"         write$ newline$
-%</unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-  "\providecommand*{\cyrdash}{\hbox to.8em{--\hss--}}" write$ newline$
-  "\providecommand*{\BibDash}{\ifdim\lastskip>0pt\unskip\nobreak\hskip.2em\fi\cyrdash\hskip.2em\ignorespaces}" write$ newline$
-%</unicode-gost71s|unicode-gost71u|unicode-gost705s|unicode-gost705u>
-%<*unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-  preamble$ empty$
-    'skip$
-    { preamble$ write$ newline$ }
-  if$
-}
-
-
-EXECUTE {begin.bib}
-
-EXECUTE {init.state.consts}
-
-ITERATE {call.type$}
-
-FUNCTION {end.bib}
-{ newline$
-%  "\catcode`\/=11"        write$ newline$
-  "\end{thebibliography}" write$ newline$
-}
-
-EXECUTE {end.bib}
-
-%</unicode-gost71s|unicode-gost71u|unicode-gost780s|unicode-gost780u|unicode-gost705s|unicode-gost705u>
-%    \end{macrocode}
diff --git a/Master/texmf-dist/source/bibtex/gost/unicode-gost.ins b/Master/texmf-dist/source/bibtex/gost/unicode-gost.ins
deleted file mode 100644
index c423e0939cf..00000000000
--- a/Master/texmf-dist/source/bibtex/gost/unicode-gost.ins
+++ /dev/null
@@ -1,61 +0,0 @@
-\input docstrip
-
-\def\SimplePackage#1{%
-  \generate{\file{#1.bst}{\from{unicode-gost.dtx}{#1}}}}
-
-\def\mypostamble{%
-  \MetaPrefix ^^J%
-  \MetaPrefix\space End of file `\outFileName'.%
-  }
-
-\usepostamble\mypostamble
-
-\keepsilent
-
-\preamble
-
-Copyright 2012 Igor A. Kotelnikov.
-Version 2012.01.21
-
-Copyright 1996-2005 Maksym Polyakov.
-Version 2005.08.12
-
-This file may be distributed and/or modified under the
-conditions of the LaTeX Project Public License, either version 1.3
-of this license or (at your option) any later version.
-The latest version of this license is in
-  http://www.latex-project.org/lppl.txt
-and version 1.3 or later is part of all distributions of LaTeX
-version 2005/12/01 or later.                                                        
-
-Please, send bug reports via e-mail:
-  kia999 at mail dot ru <Igor Kotelnikov>
-  polyama at yahoo dot edu  <Maksym Polyakov>
-
-2012.01.15 Added German, French, Italian languages, @online entry.
-
-2005.08.12 Bug fix (long annote)
-
-2003.06.06 contributions by Konstantin Vorontsov:
-New ENTRY "annote" added to output annotations.
-New commands BibUrl, BibAnnote added for customize urls and annotations.
-
-2003.08.10
-New command BibEmph added to customize emphasizing.
-
-2003.10.07
-Some bug fixes in names and date formatting.
-
-2003.10.07
-Bug fix in INPROCEEDINGS.
-
-\endpreamble
-
-%\SimplePackage{unicode-gost71s}
-%\SimplePackage{unicode-gost71u}
-\SimplePackage{unicode-gost780s}
-\SimplePackage{unicode-gost780u}
-\SimplePackage{unicode-gost705s}
-\SimplePackage{unicode-gost705u}
-
-\endbatchfile