generateMap idVal initInfo nList = generateMap (idVal+1) rest $ nList ++ [newNode]
  where rest      = tail initInfo
        initData  = head initInfo
        newNode   = generate idVal (fst initData) (snd initData)
generateMap idVal initInfo nList = generateMap (idVal+1) rest $ nList ++ [newNode]
  where rest      = tail initInfo
        initData  = head initInfo
        newNode   = generate idVal (fst initData) (snd initData)
generateMap idVal initInfo nList = generateMap (idVal+1) rest $ nList ++ [newNode]
  where rest      = tail initInfo
        initData  = head initInfo
        newNode   = generate idVal (fst initData) (snd initData)