let(!)=print_endline
let rec($)l?(r=read_line())i=List.mem i l&()= !r;!r;l$i+1and(@)n?(c=input_byte stdin)l=c=32&0@n::l;c>10&n*10+c-48@l;n::l$1;;0@[]