I'm out on a new road in search for a land with no name
And I never look back cause I'm walking through sunshine and rain
I'm a man who has lived in the tombs and who's broken the chains

Amen
Amen

I was blind and now I see
What if god is not for me
And I know it's time to go
I've been used and I've been played
I've been spat on and betrayed
And I know it's time to go

(Watch out) I defeat the pain
(Watch out) I'm alive again
The past is gone for good, it's time to say:

Amen
Amen
Amen
Amen

At last, I believe I will be found
In the silence of my nights
I can hear a distant voice
Someone out there is calling my name
(Watch out) I'm not afraid
Watch out
I'm beyond the dread
It's time to turn the page and love again
(Watch out) I defeat the pain
(Watch out) In a crying game
I'm leaving all my shadows behind

Amen
Amen
Amen
Amen

Tentanda via ad incognita

(define (run-fsm context)
  ""
  (define (DEFAULT context)
    "Count parenthesis."
    (let ((event (event-source context)))
      (cond ((guard:eof-object? context event)
             (let ((context (action:validate context event)))
               (log-debug "[~a] -> [*]" 'DEFAULT)
               context))
            ((guard:semicolon? context event)
             (let ((context (action:no-op context event)))
               (log-debug "[~a] -> [~a]" 'DEFAULT 'COMMENT)
               (COMMENT context)))
            ((guard:double-quote? context event)
             (let ((context (action:no-op context event)))
               (log-debug "[~a] -> [~a]" 'DEFAULT 'STRING)
               (STRING context)))
            ((#{guard:#t}# context event)
             (let ((context (action:count context event)))
               (DEFAULT context))))))
  (define (STRING context)
    "Skip a string."
    (let ((event (event-source context)))
      (cond ((guard:double-quote? context event)
             (let ((context (action:no-op context event)))
               (log-debug "[~a] -> [~a]" 'STRING 'DEFAULT)
               (DEFAULT context)))
            ((#{guard:#t}# context event)
             (let ((context (action:no-op context event)))
               (STRING context))))))
  (define (COMMENT context)
    "Skip a comment."
    (let ((event (event-source context)))
      (cond ((guard:newline? context event)
             (let ((context (action:no-op context event)))
               (log-debug "[~a] -> [~a]" 'COMMENT 'DEFAULT)
               (DEFAULT context)))
            ((#{guard:#t}# context event)
             (let ((context (action:no-op context event)))
               (COMMENT context))))))
  (DEFAULT context))

$ cat fsm.puml | smc compile -L .  -U "((context))" -t guile-standalone -m "(custom-fsm)"  > custom-fsm.scm

$ guile -L . main.scm > fsm.scm

$ echo "hello world" | guile -L . run.scm

How did I get to here?
A random chain of events
Or chemical and elements
Conspiring, divining

From the star I've been pulled apart
By weightless love
And the heavy hearts
Of sadness

Oh, I was born blown minded
With an eye on oblivion
oh, I was born blown minded
With an eye on oblivion

In my heart I have lived without aught
It's been the war of attrition
Between a small-minded fool
And sublime intuition

I believe there's a meteor out there
With my name on it
Hurtling through space
And nothing can stop it

Oh, I was born blown minded
With an eye on oblivion
Oh, I was born blown minded
With an eye on oblivion