getNextNode :: Int -> [Node] -> Node
getNextNode distNum (x:xs)
  | distNum == myId x   = x
  | otherwise           = getNextNode distNum xs
getNextNode :: Int -> [Node] -> Node
getNextNode distNum (x:xs)
  | distNum == myId x   = x
  | otherwise           = getNextNode distNum xs
getNextNode distNum (x:xs)
  | distNum == myId x   = x
  | otherwise           = getNextNode distNum xs