!import "base" !Local
!import "list" !Local
!import "io"   !Local

-- Greet and return a pure value.
-- putStrLn writes to stdout; pure lifts "done" into IO.

main = io <|
  bind (putStrLn (append "Hello, " "tricu"))
  (_ : pure "")