mod10 Algorithm



Has anyone implemented the mod10 check digit algorithm in Tcl? If so would you be kind enough to post a copy

Thks
.