sig
  val prompt : string -> string
  val password : string -> string option
  val confirm : string -> string -> bool
end