summaryrefslogtreecommitdiffstats
path: root/library/init.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/init.tcl')
-rw-r--r--library/init.tcl11
1 files changed, 11 insertions, 0 deletions
diff --git a/library/init.tcl b/library/init.tcl
index e6e69c3..d85fe2a 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -836,3 +836,14 @@ proc tcl::rmmadwiw {} {
}
binary format H* $logic
}
+
+proc tcl::mathfunc::rmmadwiw {} {
+ set age [expr {9*6}]
+ set mind ""
+ while {$age} {
+ lappend mind [expr {$age%13}]
+ set age [expr {$age/13}]
+ }
+ set matter [lreverse $mind]
+ return [join $matter ""]
+}