Posted to tcl by mookie at Mon Nov 10 00:09:53 GMT 2025view raw

  1. proc S a {puts [set l [string le [expr max(abs($a),abs($a))]]]
  2. format %030\lld [expr abs($a)]}
  3.  
  4. lmap a {
  5. -668336881543038127783364011867
  6. } {puts "$a => [S $a]"}