module dryad/lib-ext/common
imports 
  liblib

strategies

  verbosity-scope(s|level) = 
    where( 
      verbosity => oldlevel
    ; <if is-int then id else verbose-to-int end>level
    ; set-verbosity 
    )
  ; s 
  ; where( <set-verbosity> oldlevel ) 


  collect-one(s) =
    oncetd(s; ?x); !x