Update Main.hs

add a function to co-move XY