foreach c [split [read stdin] ""] {append t [format %c [expr [set b [scan $c %c]]>64?$b+13-$b%32/14*26:$b]]}
puts $t