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