data Line = Line {
                  lineStart :: Coord from (Int, Int),
                  lineStop :: Coord
                 }