set bin [gets stdin]
binary scan [binary format B64 [format "%064s" $bin]] W dec
puts $dec