let swap (a,b) = (b,a)