Evaluated proc achtung args {. "[^C]08,04/!\\[^C]00,04 [string toupper [join $args " "]] [^C]08,04/!\\"}