Новогодний код 2019

(defvar yrnmbrz)
(defvar yrnmbrg)
(defvar smwrds '(year new happy gone has))
(setf yrnmbrz (-(*(*(+(*(* 5 4)5)1)5)4)1))
(setf yrnmbrg (*(+(* 8 11 11)41)2))
(defvar zword (car(cdr(cdr smwrds))))
(defvar fword (car(cdr smwrds)))
(defvar sword (car(cdr(cdr(cdr smwrds)))))
(defvar tword (car(cdr(cdr(cdr(cdr smwrds))))))
(format t "~A ~D ~A ~A.~%" yrnmbrg (car smwrds) tword sword)
(format t "~A ~A ~D ~A!~%" zword fword yrnmbrz (car smwrds))

program ny2019;
    {$codepage UTF8}
    uses cwstring;
var
        s1: UnicodeString = 'дно шмыг!всё';
        s2, s3: UnicodeString;
        x : Real = 1125545845880437676530672401837801;
begin
  x := exp(0.1 * ln(x));
  Str(x:4:0, s3);
  s2 := Copy(s1, 11, 1) +
  Copy(s1, 4, 1) +
  Copy(s1, 2, 2) +
  Copy(s1, 10, 1) +
  Copy(s1, 7, 1) +
  Copy(s1, 6, 1) +
  Copy(s1, 4, 1) +
  s3 +
  Copy(s1, 4, 1) +
  Copy(s1, 8, 1) +
  Copy(s1, 3, 1) +
  Copy(s1, 1, 1) +
  Copy(s1, 3, 1) +
  Copy(s1, 6, 1) +
  Copy(s1, 9, 1);
  writeln(s2)
end.