From 1fa4f7410e6f840215f8de2f522238b984da27a3 Mon Sep 17 00:00:00 2001 From: Jon Doe Date: Sun, 27 Sep 2020 17:23:05 +0200 Subject: [PATCH] maybe this way --- stolen-treasure.tcl | 1 + 1 file changed, 1 insertion(+) diff --git a/stolen-treasure.tcl b/stolen-treasure.tcl index 0a5f5ad..9b4496e 100644 --- a/stolen-treasure.tcl +++ b/stolen-treasure.tcl @@ -1,3 +1,4 @@ +proc chanlist args {cache get irc chanlist} proc unispace {{n {}}} {join [map [seq 1 [or $n [rand 100 200]]] {x {uchar [?? {2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 200a 200b 200c 200d 200e 200f 0020 00a0 202f 3000 feff}]}}] {}} proc onmars args {concat have you ever [join $args]? have you ever [join $args]...[color red]ON MARS??[color]} proc {} v {return $v}