let g s l=List.map(Printf.printf s)(Sort.list(<)l)let rec f e o?(i=try read_int()with _->g"%d
"e;g"
%d"o;0/0)a=i mod 2=0&f(i::e)o a;f e(i::o)a;;f[][]0