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