A Dungeon Synth Romance

The noble Mice and the sorcerous Frogs have been at war for centuries. One
stormy night, the Mice steal in to Ithilminz, the Frog stronghold, and leave
chaos in their wake.

One Mouse Knight, fair Ser Pyxen, aghast at the destruction, espies the Frog
Princess Ispinzelga. She is smitten, and calls the Princess to her. Together
they steal away.

Their journey takes them through the long-forgotten chambers of Rhul, across the
treacherous bogs of the Froglands and the bounteous harvests of the Mouselands,
and into the Glittergrove, where they will be safe.

But their elopement draws ire from both the Mice and the Frogs, and their
journey is beset upon all sides by danger.

One night, riding through the Glittergrove, Frog rangers spy the couple and take
back the Princess. Fair Ser Pyxen fights with all her might, the noble mouse
sword Glimmerung held high above her head as she dashes towards the Frogs.

It is to no avail, and alas, our tale ends in tragedy.

Princess Ispinzelga, taken before the Frog Court, refuses to deny her love for
the Frog Knight. The Court cannot execute the Queen's daughter, but she is
little better than dead to them so they imprison her, and hold a false funeral
for their Princess, witnessed by Ser Pyxen who followed the Frogs back to
Ithilminz in the shadows.

Fair Ser Pyxen, unable to live without her true love, creates a pyre for herself
before the gates of Ithilminz, the fire that extinguishes her broken heart
quickly itself extinguished by the never ending rain of the Froglands.

This is a tale little told by future generations, but here we remember Fair Ser
Pyxen, the noblest Mouse Knight, and Princess Ispinzelga, the kindliest of
Frogkind.

Доброта и позитив
Наполняет коллектив:
Позитив дают с лихвой
Концетрированный, свой!
Ну а доброта у нас
Прибывает каждый час:
Только успевай черпать
И из вёдер выливать.
От такого позитива
Двух сотрудников скрутило
А от местной доброты
Люди так вообще слегли:
Сил нет черпать и носить,
Дайте просто людям жить!

#!/usr/bin/env -S guile -L modules -e main -s
!#

(define (main args)
  (let ((lst (string-split (cadr args) #\space)))
    (for-each (lambda (word)
                (display
                 (apply string
                        (sort (string->list word)
                              char<?)))
                (display " "))
              lst))
  (newline))