add OCaml version of swapview