type Point a = (a,a)

-- Convert a String with points separated by spaces to a list of Points.
toPoints :: String -> [(Float,Float)]
toPoints s = splitOn " " s