#!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)