#!racket
(let m()(let((l(read-line))(r string-ref))(display(r l(if(eq?(r l 1)(r l 2))2 4)))(m)))