chr { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x } | $iif($isid,return,echo) $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44),$!chr(32),$chr(41) $!+ $+ $chr(40),$+($chr(41),$chr(44),$chr(41)),$+($chr(41),$chr(41)),$!+ $+ $chr(40) $+ $chr(44),$!+ $+ $chr(40)) $+ $chr(41) }
Now yours does what mine does, power dragon. =p