From 4502b1fa0696dd647f8a38b72b8f689433bf98cd Mon Sep 17 00:00:00 2001
From: max <max@tclers.tk>
Date: Fri, 1 Apr 2011 10:48:21 +0000
Subject: mathematical version of TIP#131

---
 library/init.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

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 ""]
+}
-- 
cgit v0.12