(define$z(lambda[](do{(let{[$x(unpack(io(read-line)))]}(writeChar(nth(if(equal(nth 2 x)(nth 3 x))2 5)x)))}(z))))(define$main(lambda[$a](z)))