Here is the source code:
import AllFudgets main = fudlogue (shellF "Hello" (labelF "Hello, world!" >+< quitButtonF))
(labelF "Hello, world!")
with
(labelF "Hello, world!" >+< quitButtonF)
The operator
>+<
is parallel composition
of fudgets (see the circuit diagram in the
manual page).