makePoint [x, y] =
    let sx = read x
        sy = read y
    in sx `seq` sy `seq` Point sx sy
makePoint [x, y] =
    let sx = read x
        sy = read y
    in sx `seq` sy `seq` Point sx sy
makePoint [x, y] =
    let sx = read x
        sy = read y
    in sx `seq` sy `seq` Point sx sy