Make.S
type point
= S.point
val ccw : point -> point -> point -> bool
val in_circle : point -> point -> point -> point -> bool