let warn = msg ~pre:"WARNING"