Update recursive-squares.hs