#!racket
(define(m)(let((l(read-line))(r string-ref))(unless(eof-object? l)(display (if(char=? (r l 1) (r l 2))(r l 2)(r l 4)))(m))))(m)