SPOJ 42 "Adding Reversed Numbers"

問題：https://www.spoj.pl/problems/ADDREV/

普通にexprで計算しようとすると頭が0の場合８進数として扱われるのでscanでとった．

proc f {a} {
        join [lreverse [split $a ""]] ""
}
for {gets stdin t} {$t>0} {incr t -1} {
        scan [gets stdin] {%s %s} a b
        puts [scan [f [expr [scan [f $a] {%d}] + [scan [f $b] {%d}]]] {%d}]
}

引っかかってた例）

1
999
11