set s a[format %c [expr {11 * 10}]]
set c [format %c 98]
foreach j {c s s a} {
    if {$j == {a}} {
        append w $j
    } else {
        append w [expr \x24$j]
    }
}
for {set i 0} {$i < 100} {incr i} {
    if {$i == 36} {
        set k [expr {$i * 3 + 2}]
    } else {
        set r [format %c [expr {[scan [string index $w 2] %c] - (100 - $i)}]]
    }
}
set i [expr {$i - 68}]
set n [format %c $i]s[format %c [expr {$i + (19 * 4)}]]
set fi [string trimright $s [format %c $k]]
puts $w$n$fi[format %c [expr {[scan $c %c] + 11}]]$r$fi