val program = for {
  _    <- Tell("Greetings!")
  name <- Ask("What is your name?")
  _    <- Tell("Hi $name!")
} yield ()