let string_of_compass_pt = function N -> "n" | NE -> "ne" | E -> "e" | SE -> "se" | S -> "s" | SW -> "sw" | W -> "w" | NW -> "nw"