let dist_simple ((x,y) : pos) ((x',y') : pos) = 
       float ((abs (x-x')) + (abs (y-y')))