let h()=Scanf.scanf"%d %d %d %d
"(fun a b c d->[a;b;c;d]);;let rec f()=let a,b=h(),h()in let n=List.fold_left2(fun a x y->if x=y then a+1else a)0a b in f(Printf.printf"%d %d
"n((List.fold_left(fun a e->if List.mem e b then a+1else a)0a)-n));;try f()with _->()