The Egyptian wannabe developer/sys-admin
# Allow spaces and underscores in long number for easy reading
proc norm {num} {
if {[regexp {^(\s|\d|_)*(\.)?(\s|_)*(\d)+(\s|\d|_)*$} $num]} {
string map {_ {} \ {}} $num
} else {
error "Number: $num is not in normal form"
}
}