Evaluated proc urban args {set c 0; . [^B][^_][string totitle $args]\n[regsub -all {\\r\\n} [join [map [top [pwget {"definition":"(.+?)"} http://api.urbandictionary.com/v0/define?term=$args] 3] {x {incr c; . "[^B]$c)[^B] $x\n "}}] \n] \n]}