!import "../../lib/base.tri" !Local
!import "../../lib/list.tri" !Local
!import "../../lib/io.tri"   !Local

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

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