module Geometry: sig .. end
sig
end
val line : int * int -> int * int -> (int * int) list
int * int -> int * int -> (int * int) list