module AST

type Coordinate = { x: int; y: int }
type Color =
| Red
| Green
| Blue
| Purple
type Line = { c1: Coordinate; c2: Coordinate; color: Color }
type Canvas = Line list

let CANVAS_SZ = 400