From 408910127f3473979a0d082017de227d73f24c57 Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Tue, 27 Dec 2022 15:28:09 -0800
Subject: [PATCH] Evaluated proc WORDOFGOD args {set ret ""; foreach {a b c d
 e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan
 "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}

---
 procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e b/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e
index eebb22c..054ecc1 100644
--- a/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e
+++ b/procs/d8a3c1513a7b4e5edf7a3cc4bd3e3e898f6b502e
@@ -1 +1 @@
-{{when {8 hours ago}}} {set ret ""; foreach {a b c d e} [split [n_r_r [clock scan $when]] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}
+args {set ret ""; foreach {a b c d e} [split [n_r_r'] {}] {lappend ret [lindex $::english_words [expr [scan "$a$b$c$d$e" %x] % [llength $::english_words]]]}; return $ret}