We all had the same parents
Many million years ago
Why can't we live in freedom
Without hunger, with no war?
At the beginning we all had
One mother and one father
That's where we're descending from (attention)
I don't, I don't understand why so much hate (attention)
Between races, and religions
It's mad, insane
I don't understand (amazing)
Why it has to be like that? (incredible experience)
We all had the same parents
Many million years ago
Why can't we live in freedom
Without hunger, with no war?
I don't, I don't understand
Why so much hate (amazing)
Between races and religions (incredible experience)

$ guix build -f ./guix.scm

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