
structure Verbose = 
    struct

        val verbose = ref (false)

        fun message l = 
            if (!verbose) 
                then (print "["; app print l; print "]\n")
            else ()

    end
