let reverse = List.map (fun (x,y) -> (y,x))