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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page