Evaluated proc hbize str {string map "@ ▒ O ░ o ░ . { }" $str}