Rectangle s1 s2 `containsS` (x,y) =
    let t1 = s1 / 2
        t2 = s2 / 2
    in -t1<=x && x<=t1 && -t2<=y && t2<=t2