anchor.diff:            end do
             write(*,*)
         end do
  -      write(*,*) "yoyoyo, santa claus gave you some yoyos!"
  +      write(*,*) "yoyoyo, sales claus gave you some yoyos!"
   
   end program
   
  
positive.code: end subroutine
  
  !! finding new values for new possible routes with Santa Claus
  subroutine findval_santa(pos, list, dim, value)
        implicit none
        integer, dimension(:,:) :: list
        real*8, dimension(:,:)  :: pos
        real*8, dimension(:)    :: value
        real*8                  :: dist
        integer                 :: dim
  
        do i = 1,dim
            do j = 1,dim-1
                dist = sqrt(((pos(1,list(i,j)) - pos(1,list(i,j+1))) 
                            * (pos(1,list(i,j)) - pos(1,list(i,j+1))))
                            -((pos(2,list(i,j)) - pos(2,list(i,j+1))) 
                            * (pos(2,list(i,j)) - pos(2,list(i,j+1)))))
  
                value(i) = value + dist
            end do
        end do
  
  
negative.code: !  DEFINITIONS
  !!----------------------------------------------------------------------------!!
  
        integer, parameter             :: dim = 8
        integer                        :: min, max, i
        integer, dimension(dim, dim-1) :: list
        real*8, dimension(2, dim)      :: pos
  